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AO LANÇAR O PRIMEIRO - E O EXPERT MSX, 
MICRO, DE FATO, PESSOAL E E É A GRADIENTE ACREDITA 
NA RUAS 5 QUE ESTA FORNECENDO 
E LEVANDO A SÉRIO 7 E UM INSTRUMENTO 
(E COMO) UMA COISA VALIOSO. EXTREMAMENTE 
QUE SEUS FILHOS ACESSÍVEL, ATÉ A PAIS. 
MOSTRAM TODO DIA A PORQUE SÃO VOCÊS, 
VOCÊ, SEM A MENOR ESO OSPAIS, QUE 


CERIMÔNIA: O FUTURO DETERMINAM OU 
COMEÇA EM CASA. ESCOLHEM ENTRE O FILHO 


A HABILIDADE DE QUE ENTENDE E USA 
RACIOCINAR, DE MICROCOMPUTADORES 
MANIPULAR SÍMBOLOS, E O QUE VAI SER 
DE USAR SEM MEDO ENGANADO, ILUDIDO OU 
A LINGUAGEM DO SEU MISTIFICADO POR ELES. 


TEMPO, A CAPACIDADE E A GERAÇÃO QUE VAI 
LIVRE DE CRIAR - TUDO MANDAR QUE NOS DES- 
ISSO — É VER UM FILHO CULPE, MAS SABER ESCO- 
DESCOBRINDO A VIDA. LHER O MELHOR PROGRA- 


DESCOBRINDO QUE SABE. MA, ÀS VEZES, PODE SER 
E O QUE VAI DIFERENCIAR FICAR EM CASA. AO LADO 
A CABEÇA DO SEU FILHO DE UM CUMPLICE HONES- 
É A SUA VONTADE DE TO E CULTO SEM SER CHA- 
APOIAR E SUS- TO EMORALIS- 
TENTAR OS TA, EBOMCA- 


ESFORÇOS DELE RATER SEM SER 
EM QUALQUER INGÊNUO, PA- 
TIPO DE APREN- RA PRATICAR 


DIZADO. INTELIGÊNCIA 
Paofeto To for PARA ENFREN- 
NAS LOJAS TARAVIDA. 





e [FEI Ogradiente 


CARACTERÍSTICAS TÉCNICAS: e O EXPERT MSX E UM SUPER 8 BITS COM ALTA VELOCIDADE 3,58 MHz e 16 CORES e MICROPROCESSADOR ZBDA COM UM 
PROCESSADOR PARA VÍDEO E UM PROCESSADOR PARA AUDIO e MEMÓRIA RAM DE 80K, SENDO 64K PARA O USUÁRIO E 16K PARA VÍDEO e MEMÓRIA ROM DE 
32X e INTERFACES INCORPORADAS PARA: DISK-DRIVE, JOYSTICK, IMPRESSORA, GRAVADOR, MONITOR RGB E MONOCROMÁTICO, EXPANSÃO DE SISTEMA. 
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MSX NAS ESCOLAS - «proxima-se o tempo 
em que professores e alunos dirão adeus do 
quadro negro e darão as boas vindas do 
monitor de fósforo. Veja como isso deve 
ocorrer. 


14 

DESVENDANDO OS DISCOS (,x1r/c 11) - 
seguimos, guiados por Massarani, A 
desvendar os mistérios do MSX. 


44 

DICAS - rogue ser clie-clik por um beep, 
dizendo adeus do velho screen, sem perder 
seu CPM de vista, rodando o programa e 
descobrindo... 


PLANILHAS ELETRÔNICAS - /2//s Peres 


disseca a armazenagem de dados no seu 
MSX. 


COM O TRITON O SEU MSX 
VAI TER MAIS O, MAIOR VELOCIDADE 


RR ==) 












Titon-D, a SPS lança com exc 
egadas para o MSX. Isso 


Como Titon-Sec 
brasileiro, o Drive de 3 1/2 pi 
jamais será o mesmo, 





Menor que o disco de 5 1/4, 
do e mais seguro. Por dentro aume 
fa, vO 








espaço para armazenar Ir 
dados. Com Triton-S, para discos face simples, são 360 kbytes 
usar como quiser. Com o Triton-D, para discos de dupl 
mais avançada tecnologia de Drives 

Para aplicações profissionais, 
Para jogos, ele está agora além da 












Como Drive 3 1/2 você tem acesso a um prog 


impressão de telas com alta resolução. Os gráfic: SG ou Ss 


isso novos contornos e maior nitidez SLEIMAN PROGRAMAS E SISTEMAS 


TirnniN cão 2 een AI ad, q Rua Matias Cardoso, |I- sala 502 
O Titon-S e o Triton-D são fabricados dent (54 CEP 30170 - Fone:(031) 275-1045 


de Hardware. Você tem um prodi 
ca. Acompanha ainda um di 
5 senvolvido pela Condor Soft 
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Após decolar no segmento de aplicações semiprofissionais e de 


lazer, O padrão MSX dá 





inais de estar ganhando pontos num 


setor que pode ser considerado, hoje, tão inexplorado quanto 
promissor. MSX MICRO analisa, neste número, a utilização dos 
MSX na área educacional e a participação dos micros no projeto 
governamental Educom. O assunto, embora não seja 
propriamente novo, continua polêmico e motivando discussões 
— um debate que, por sinal, os MSX se encarregaram de 
reaquecer; atinal, nenhum outro equipamento no mercado 
brasileiro conseguiu, até hoje, conciliar características tão 
favoráveis para O uso na Educação. Confira as razões na matéria 
de capa desta edição, e entenda melhor a movimentação que já 
se faz sentir nesta área — traduzida pelos primeiros pacotes de 








software edui 
capazes de * 
brasileiros. 


Inauguramos também, nesta edição, uma 


cional e jogos de ficção interativa (adventures) 
ar” português, todos desenvolvidos por autores 


ão de dicas de 





programação. O objetivo da nova seção é facilitar O intercâmbio 
de informações entre os muitos usuários do padrão MSX, que 
passam, desta forma, a contar com um espaço para à troca de 


experiências e conhecimentos úteis sobre à 





as máquinas. 


Dicas, críticas e sugestões relativas à nova seção devem ser 
encaminhadas para a redação de MSX MICRO — Av. Passos, 


101/11º andar, CEP 20051, Rio de Janeiro, RJ. 





Estamos aguardando as suas colaborações. Até a próxima. 
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= À 
EDUCOM 


OMSXN A ipi 
siste íblico de 
ensino, movido a cargas 

duridas de verbas 

É SCOLA A “oficiais e com sérios 
A pr oblenaçãe gerência, 


| 
estárcios poucos se 
desligando da 

administração de 
ensino convencional | 
= baseada em antigas | 

“* condutas conservadoras 

e manuais, e se 

aproximando de 

modelos educacionais 

modernos e dinâmicos. 

A nova era tem, no | 

Colégio Souza Aguiar; 

Rio de Janeiro, um 

exemplo de como pode 

ser estimulante para as 

áreas administrativa e 

educacional a 

integração de objetivos e 

formas de atuação 

através da 

informatização de 

ambas. É tempo de 

software educacional. É 

tempo de EDUCOM. 





eme meioeintmemta 
























elit j XX + 2 + 


MSXMICRO 7º sa 3 
+ titã 
e O ) 


mera ace mm ria pn ti qe 


Software edu 
instruir atra) 


te em computadores 

méticos deixa de ser fic 
científica, ou de estar presentes em 
sofisticados sitemas CAD/CAM para 

| fazerem parte do dia-a-dia do 

homem comum. 

o computador s rve ao ensino de 

s básicas: 























Instrução programada — É o tipo de 
treinamento implementado por 
grandes organizações, onde os 
tópicos são muito divididos em 
rígido esquema. Primeiro, apresenta 
se um texto explicativo e, a seguir, é 
feita a avaliação do aprendizado 
através de perguntas e respostas. 
Esta avaliação é feita pelo próprio 
aluno ou por programa que 
contabilize acertos e erros de cada 
um. Neste tipo de instrução, o mais 
importante é o conteúdo e a 
sequência das aulas. 

















Courseware de simulação — Parte do 
pressuposto de que o aluno 
conhece o assunto e deseja simular 
certas situações. Isto poderia ser feito 
num Laboratório Experimental, 





telecadaro 
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porém o computador pode torná-lo 
dispensável se for capaz de 
responder a todas as hipóteses. Por 
exemplo: 





imular o lançamento de um 
projétil 
Que ad á se gumentarmos a 





velocidade do mesmo? E se 
alterarmos a inclinação? 
Atuando no teclado, pode-se 
verificar estas e outras questões 
que seja necessário lançar um 
Tal courseware dispe: 
2r e também a aval 





m 









o tipo de software educacional em 
que o computador é usado para 
enriquecimento do conteúdo de 
aulas ministradas por professores. A 
finalidade do software é 
aluno visualizar certos pontos 
mencionados e, para tanto, é 
importante boa re: 
som. A avaliação é feita por 
perguntas e respostas para confirmar 
a boa compreensão das situações. 
te foi o esquema adotado pelo 
EDUCOM 


Ê Instrução Assistida por Computador — 
do 






















Projeto Educom 

Educação por computadore: 
projeto governamental brasileiro de 
informatização do ensino nacional, 
que visa pesqu efeitos da 
informática sobre o ensino brasileiro 
médio. É preciso deixar claro que a 
equipe envolvida neste projeto está 
ciente da importância do professor 
como agente orientador deste 
processo de infomatização. A 
professora Riva Roitman, por 
exemplo, uma da coodernadoras do 
Educom no Rio de Janeiro, afirma 
que “a introdução do computador 
na educação é um problema tanto 
dos informatas quanto dos 
educadores”. 

















O projeto reúne universidades 
brasileiras que desenvolvem 
experiências sobre a utilização de 
computadores no ensino de 1º e 2º 
graus, trabalhando com escolas 
públicas da comunidade onde estão 
localizadas. 


Origem 
O projeto nasceu em 1983, quando 
da resolução do governo de aplicar a 
informática como um recurso 
tecnológico a mais ao processo 
educacional brasileiro. O MEC, 
através da Secretaria Especial de 
Informática — SEL — enviou uma 
solicitação às universidades para que 
tas apresentassem projetos de 
pesquisa sobre a aplicabilidade do 
computador no ensino. De várias 
universidades, apenas cinco foram 
selecionadas, criando centros pilotos 
para desenvolvimento do projeto e o 
desenvolvendo atualmente. São elas 
as Universidades Federais do Rio 
Grande do Sul, de Pernambuco, de 
Minas Gerais, do Rio de Janeiro e a 
Universidades Estadual de Campinas. 











Moda ou Solução 
A introdução dos computadores no 
ensino de 1º e 2º graus não é 








consequência de um modismo. Esta 
iniciativa do governo é resultante da 
necessidade de minimizar alguns dos 
problemas do atual sistema de 
ensino. Apenas como exemplos, de 
cada 100 alunos que ingressam na 1º 
série do 1º grau, somente a metade 
passa para a 2º série e menos de 30 
atingem a 5º série. Além disso, toda 
a literatura publicada sobre o ensino 
via computador afirma que esta é 
uma das poucas tecnologias novas 
que permite um a completa 
reformulação do ensino, tanto em 
termos de prática do professor, 
como de aprendizagem do aluno. 


Colégio Souza Aguiar 

No Rio de Janeiro, o Projeto 
Educom está realizando um 
experimento piloto no 
Souza Aguiar, colégio público 
localizado em um bairro de classe 
média/baixa. 

Está sendo implementado o uso: 
do computador no ensino de 
Matemática, Física, Química e 
Biologia para quinze turmas de 1º 
série de 2º grau — cinco turmas por 
turno. Os alunos têm aulas t 
só posteriormente vão trabalhar com 
os softwares no laboratório montado 
na escola pela equipe do Educom. 

Cada equipe, dividida por áreas 
de ensino — Matemática, Física, 
Química e Biologia — é formada por 















um professor Phd de universidade, 
dois professores de 2º grau da 
respectiva matéria, um professor da 
escola, um especialista em 
metodologia, um programador e um 
analista de sistemas, É este grupo que 
seleciona todo o material e todo o 
equipamento a serem utilizados. 


Por que o MSX? 

en EE? vantagens correm a favor da 

utilização do MSX num projeto da 

envergadura do Educom. Ele 

apresenta: 

* Basic extremamente poderoso 

* Menor gasto de memória e menor 
complexidade nos sitemas de 
autoria. 

* Efeitos sonoros mai 

* Um hardware mais “enxuto”, 
eliminando a ne, idade de 
placas e mais placas extra 

* Possibilidade, no caso do Expert, 
de embutir a CPU em uma 
bancada, fazendo com que o 
aluno tenha acesso somente ao 





ricos 















teclado. 
* Custo relativamente baixo, 
Seria interessante frisar que no 








io de 
10) 


Colégio Souza Aguiar, hor 
treinamento com o MSX é de 
horas semanais, 





















EXCLUSIVIDADES 10605 
C2$ 200, cada 
gas Colt 36 
umprei 
Contract Bridge dei pd 
A cada 4 programas você tem pts 
direto a escolher um jogo grátis fra 
de C28 120, Bda 
Spirits 
Star Wars 
The Meaning of Life 





No preço está incluída uma fita cassete. Caso o usuário deseje 
receber sua encomenda em disquete, deve acrescentar Cz$ 
150, a cada 6 programas. 


catálogo atualizado grátis 














UTILITÁRIOS APLICATIVOS 
CPIM Cz$ 250, 
Cz$ 850, 
(Disquete incluído) MSX Write 
Tassword 
Cobol MiniData 
Mumps Controle de Estoque 
Linguagem C Cooymania — o melhor do 
Turbo Pascal momento, copia qualquer 
Fortran programa. Cz$ 750, 


Word Star (40 col) 


Para fazer seu pedido remeta cheque nominal cruzado ou vale postal à MSXMANIA, no valor total da encomenda 
+ Cz$ 60, (Correio), acompanhado de uma carta com seu nome, endereço, marca do micro, versão e gravador. 


Rua Pedro Américo, 418/02, Catete — CEP 22211 — Rio de Janeiro RJ — Tel.: (021) 245-3815 
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EWS 


E agora, o MSX 
com 80 colunas 


Fortaleza — Já está no mercado 
O VMX-80, cartão de vídeo de 
80 colunas para MSX desenvol 

vido pela empresa cearense Mi- 
crosol O periférico, que tem o 
formato de um cartucho, pode 
ser conectado a qualquer um 
dos slots do MSX e permite ao 
computador operar com 40 ou 
80 colunas, selecionáveis atra- 

vés de chaveamento por soft- 
ware. Além da facilidade de ins. 

», uma característica im 

portante deste cartão de vídeo 
é manter, no modo de 80 colu- 

















Mais duas opções 
para você se ligar: 
Videotexto e 
Telegame 


São Paulo — Um Kit de comu: 
nicação, com acesso a videotex- 
to e telegame, é o lançamento 
anunciado pela Embracom 

O Kit, destinado a equipa 
mentos compatíveis com a li 
nha MSX, é composto por um 
modem e cartucho, O modem 
tem uma capacidade de 1200 a 
1275 bits por segundo, eo car 
tucho — constituído de inter- 
face é software de comunica 
ção ao videotexto e telegame 
ado em memória Eprom 
ser ligado numa das entra 
das para cartucho do micro, Pa 
ra usufruir dos serviços do vi 
deotexto ou se divertir com os 
jogos do telegame, tudo o que 
o usuário do MSX precisa é se 

















ligar nesse Kit de comunicação, 
que deverá chegar às lojas em 
breve. 





nas, todos os recursos de edição 


full-screen encontrados no mo- 





Foto: Silas de Paula. 





do normal de operação do 
equipamento, além da linha pa- 








ra identifica: 
função na parte inferior d 

Mas o maior atrativo do car- 
tão de 80 colunas é, sem dúv 
da, possibilitar finalmente a uti 
lização de um grande número 
de programs aplicativos proje- 
tados para estas dimensões de 
tela, como diversos exemplar: 
da vasta biblioteca do sistem 
operacional CP/M. Usuários em 
potencial, no entanto, devem 
atentar para um detalhe impor- 
tante: este cartão foi desenhado 
para operar exclusivamente 
com monitores de vídeo, Ou 
seja: de acordo com as informa- 
ções do fabricante, o VMX-B0 
não pode ser usado com televi- 
sores adaptados. 





















O MSX faz a feira 





São Paulo — Aconteceu parale- 
lamente à Feira de Informática 
a | Feira Nacional do MSX. A 
MSX Informática organizou e, a 
SHARE, GRADIENTE, PRIN. 












CESSWARE, CIBERTRON, LO- 
GICAL, ALEPH, NOB 
MCGRAW-HILL, SCRITT/ 





ELEBRA, ROSIT 
SOL, TELCOM 


fICRO- 





BY 





KRON, compareceram 

A LOGICAL apresentou um 
PLOTTER que trabalha com 
formato de papel Aá, com tro- 
ca manual de pena e pode 
transformar o MSX num posto 
CAD (desenho auxiliado por 
computador), 

A GRAFIX MTA foi transfor- 
mada em uma impressora grá- 
fica inteligente com o aplicati- 











SuperCalc? para o seu 


O mundialmente conhecido 
SuperCale? desenvolvido pelo 
Computer Associates já está no 
Brasil à disposição dos usuários 
do MSX. Quem acha que o mi 
cro deve ajudar a simplificar a 
nossa, cada dia, mais complexa, 





vida moderna então, encontrou 
um aliado. Basta uma configu- 
ração básica (micro + drive + 
cartão de 80 colunas / opcional 

+ impressora / opcional / pa- 
ra que você se torne usuário 
desta potente planilha eletrôni- 


vo Cocar ão 5.0 da MSX IN- 


FORMÁTIC, 








> e cópia de cartu- 
jo de tabelas, carac- 
teres e gráficos, o acesso a qual- 
quer slot e, aos dados do disco, 
ficou mais fácil com o ME 
3 EMBLER, lançado na 
ZIBERTRON 












ca 


A Princessware, responsável 
pela comercialização do soft 
ware em todo país avisa que 
basta saber ligar o micro, utili- 
zar O disk drive e, dê um che- 
que de 12 OTNs 

















O Drive Slim 5 % c/ interface dupla 
€ Placa de 80 colunas para monitor 

O Interface dupla para drive 

€ Modem para ligação entre micros 

€ Jogos diversos: Cz$ 40,00 ( a cada 10 jogos envie Cz$ 100,00 para disco ou fita) 

€ Aplicativos: CzS 150,00 

O Pacotão:100 jogos + 5 fitas ou discos + 3 aplicativos + 2 copiadores + 1 zapper = Cz$ 3.000,00 


Para fazer seu pedido remeta cheque nominal cruzado para A.Nasser, no valor total da 
encomenda. Para maiores esclarecimentos é favor mandar carta com nome e endereço 
completo para: Rua Gonzaga Bastos, 411/203 — CEP 20.541 — Vila Isabel — Rio de 
Janeiro — Tel.: (021) 234-0775 









SOFT 

















Chegaram os drives 
de 3 Y% polegadas 





São Paulo — Mais do que um 
simples periférico, uma antiga 
reivindicação dos usuários do 
padrão MSX; assim podem ser 
definidos os drives de 3 4 po- 
legadas, que finalmente che- 
gam ao Brasil pelas mãos da 
Technoahead, uma empresa 
paulista com larga experiência 
na fabricação de cabeças mag- 
néticas para drives. Com di- 





de de 500 Kb não formatados, 
enquanto que a versão de face 
dupla, o DT:350, chega a alcan- 
ar IMb não formatado. 

Associados a esta capacida- 
de de armazenamento, os dri- 
ves de 3 4 polegadas apresen- 
tam uma alta confiabilidade de 
operação e qualidades estéticas 
inegavelmente superiores às de 
eus pares de 5 4 polegadas. 








mensões bastante reduzias (cer- Foto: Régis Filho 
ca de 10 cm de largura por 15 
em de comprimento e 4 cm de 
altura), O drive DT300, de face 
simples, possui uma capacida- 





Mesmo assim, os drives con- 
vencionais não estão fora dos 
planos da empresa: um drive 5 
w” será lançado brevemente, 
em duas versõe: 

Um detalhe não menos im- 


Transforme o seu MSX em 


portante para os usuários é que, 


Feira de Informática em setem- 
bro, nó Anhembi, a previsão é 
de que os drives de 3 4” 
tejam nas lojas este mês, 


segundo informações da em- 
presa, o preço dos drives de 3 
Ya " não deverá ser muito supe- 
rior aos de 5 4": Lançados na 








uma máquina de desenhar. 


MENU - CAIXA DE FERRAMENTAS 





























ZIA unmas netas sexto, 
in Etr a 

| unas continuas [7 T7a | UNHAS rRacEsADAS 

essencia | 77) [7 | sesasim 

mi] prt ni 
Sa pETAUtos paços 
ojio! omnes |] | | Exceções 
Gs "EM 





COLORIR 
Pinta uma área 


PREENCHER 
Pronche com cor uma. 
área dolimrado. 


COR DO CURSOR 
Muda a cor do 














Muda a cor do lápie 








alelo 




































[4 
E y esa 
DIBA LIMPA A TELA 
ai seas [DD 
Bs Ltd) espeLHOS 
csceees FE 
chico rrocacones ESPESSURA DO TRAÇO 
Troca as corsa Suleciora a espessura 
pe | 6] per 
AMPLIAÇÃO REPETIÇÃO 
Amplo uma porte opere uma parte 
Com o INPUTMOUSE é muito fácil desenhar, fazendo gráficos e os im 
esquemas MSX. Na compra do seu INPUTMOUSE você recebe, em fita Meninemastes || 
ou cartucho, o incrível programa 'cheese”, que permite o desenho livre mos aios X a Y. 
ou de qualquer figura geométrica, com perfeição e rapidez, Tudo sem 1oaD 
tocar nas teclas do micro. Além disso o INPUTMOUSE serve como. Carga comum | FI 
joystick e até mesmo para criar programas em Basic compatíveis com o E 





Mouse, 


Venha ver uma demonstração do INPUTMOUSE na CASA DO MSX e 
aproveite o preço promocional de Cz8 3.390,00 


CASA DO MSX 


Rua Afonso Brás, 155 - São Paulo-SP 
Teis.: (011) 533.2351 e 240.194 














CARTAS 


SEÇÃO BOLA DE 
CRISTAL 


Gostaria que fosse retificado 
o número de minha caixa 
postal, publicado na página 
13 da revista MSX MICRO Nº 
10, Complementando a mi- 
nha participação, gostaria 
também de sugerir a criação 
de uma seção de dicas, por 
ser a forma de comunicação 
mais curta, porém mais ob- 
jetiva para revistas sobre in- 
formática. 

Jo: R, Mendes 





=RJ 


Atenção leitores que quise- 
rem tirar dúvidas ou trocar 
idéias sobre “Os Maravilho- 
sos Drives MSX” (MSX MI- 
CRO Nº 8): é só entrar em 
contato com o autor do ar- 
tigo, José Julio Rodrigues 
Mendes, através c 
postal 3275, CER, 20001, 
Rio de Janeiro — RJ. 

Tudo certo agora, José? 
Quanto à seção de dicas, 
nossa opinião é de que vo- 
cê no mínimo, deve ter uma 
bola de cristal. Dê uma 
olhada e depois escreva-nos 
dizendo o que achou. 


PROCURA-SE MSX 
Micro 


A revista MSX MICRO Nº 3 
está realmente esgotada? 

Se estiver, peço que divul- 
guem o meu interesse em 
adquirir um exemplar em 











perfeito estado de conserva- 
ção. 

Antonio Silva Pereira Andra- 
de — PE 


Infelizmente, a edição nº 3 
de MSX MICRO está mesmo 
esgotada. Se algum leitor 
puder ajudar; o endereço do 
Antonio é: Rua Almirante 
Cochrane 239 — Santo 
Amaro — Recife — PE, CEP 
50040. 





BRONCA 

Há cerca de três meses, vi 
num jornal do Rio um anún- 
cio da Exbit Software, da Vila 
Velha ( Tentado pelos 
baixos preços que oferecia, 
escolhi os programas e en- 
vici um cheque. Quinze dias 
depois, recebi uma carta avi- 
sando que a gravação estava 
sendo providenciada, e que 
a receberia assim que estives- 
se pronta. 

Após uma árdua espera, 
que se estendeu por três me- 
ses e meio, e várias cartas 
perguntando pela demora 
(nenhuma delas respondi 
da), resolvi investigar o en- 
dereço e telefone do respon- 
sável pela firma. Entrei em 
contato com ele e avisei que, 
se não mandasse os progra- 
mas imediatamente, entraria 
com um processo na justiça. 
Só então ele se prontificou a 
gravar Os programas, embo- 
ra o cheque já tivesse sido 
descontado há bastante tem- 
po. 

Escrevi esta carta para os 
amigos do padrão MSX que 
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estão com problemas com 
programas que nunca che- 
gam: está na hora de agir, 
amigos. E também para aler- 
tar aos demais para que não 
entrem em transação comer- 
cial com a Exbit ou Sergio 
Pereira Ricardo, que não têm 
responsabilidade alguma pa- 
ra revenda de software. 

Por último, gostaria que 
meu endereço fosse publica- 
do na seção de cartas, para 
troca de idéias e correspon- 
dência. 

Karl Mesquita Leite Junior 





Caixa Postal 385 — Natal 
— RN — CEP 59001 


ARQUIVO DE 
MATÉRIAS 


Sou estudante de med 
da Universidade de Brasília e, 
desde novembro, possuo 
um Expert da Gradiente. A 
principal razão porque com- 
prei este micro foi a intenção 
de ut lo como arquivo 
das matérias que tenho cur- 
sado. 

Gostaria, então, de ser 
orientado no sentido de 
conseguir realizar, da melhor 
maneira possível, esta antiga 
idéia: ter arquivado todo o 
curso de mes , inclusive 
resumo de livros, gráficos, 
etc.. Pediria que me forne- 
cessem o maior número de 
informações possíveis e que 
me indicassem os melhores 
acessórios para expansão de 











memória de meu micro. Pos- 
suo também uma máquina 
de escrever elétrica Praxis 20 
e gostaria de saber como 
posso utilizá-la como im- 
pressora, conectando-a ao 
meu micro, 

Rômulo Maroclo Filho 
Brasília — DF 


Rômulo, para utilizar seu 
Expert no cadastramento de 
conteúdo de suas aulas de 
medicina sugerimos um ge- 
renciador de banco de da- 
dos, como o dBase Il da Da- 
talógica, e no mínimo um 
(1) drive. Para operá-lo não 
haverá grande necessidade 
de conhecimentos de pro- 
gramação. Para cadastrar 
gráficos você deverá possuir 
um Editor gráfico; já exis- 
tem várias softhouses ofere- 
cendo-os. Não há, a princi 
pio, necessidade de expan- 
são de mémoria. 

A interface para utilização 
da Praxis 20 como impres- 
sora poderá ser conseguida 
junto à MSX Informática 
em São Paulo, 











CLUBES DE USUÁRIOS 


Venho por meio desta, co- 
municar a criação de mais 
um clube de usuários da li- 
nha MSX. Maiores informa- 
ções escreva para: 

Rual, quadra 9 / nº 37, con- 
junto Pio XII, Jatiúca — Ma- 
ceió — ALAGOAS. 

Geraldo Penha Amorim Jú- 
nior 


Estou formando, junto com 
um grupo de amigos, o 
“MSX AMIGO”, um clube 
que visa à troca de jogos, 
aplicativos, utilitários e etc. 
Quem quiser saber mais de- 
talhes sobre o nosso clube 
escreva para: 

CAIXA POSTAL 490/€ 
37700 — Poços de Caldas — 
MG 

Hernani Teixeira Ari 








Gostaria de informar a exis- 
tência do clube “Faros Infor- 
Clube MSX” de Ilha 
— SP. O clube, que 
tem sócios por todo o Brasil, 
programas e informa- 
om todos os usuários 
do MSX, sócios ou não do 
clube. O endereço é: 
Passeio Cambará, nº 408 — 
Ilha Solteira — SP — CEP 
15378 

Fabrício Miranda Quaresma 













CORRESPONDÊNCIA 


Sou usuário do MSX e gosta- 
ria de trocar programas em 
fita e disco. Os interessados 
podem entrar em contacto 
comigo pelo seguinte 
endereço: 

Rua Desmons, 295 — Coe- 
lho Neto — RJ — CEP 21530 
Nei Eduardo C. Lima 





Gostaria de trocar corres- 
pondência com outros usuá- 
rios do padrão. Quem esti- 
ver interessado pode escre- 
ver para: 





Av. França, nº 371 — Nave- 
gantes — Porto Alegre — RS 
— CEP 90230 

Marco Aurélio Brambilla 





Possuo um Expert equipado 
com monitor e com um Da- 
tacorder. Admiro a capacida- 
de desses micros da linha 
MSKX e, sendo assim, propo- 
nho-me a trocar correspon- 
dência com outros usuários 
para podermos comprar, 
trocar, vender programas e 
etc. 

Av. Filogonio Peixoto, nº 
1539 — Bairro Aviso — Cai- 
xa Postal 238 — Linhares 
ES — CEP 29900. Telefone 
(027) 264-2593 

Ossimar Antonio Scaldaferro 








Gostaria de me correspon- 
der com outros leitores da 
Revista MSX-MICRO. 

Meu endereço é 

Rua Cipr nº 19 — Eldo- 
rado/Contagem — MG — 
CEP 32310. Telefone (031) 
3519278 

Antonio Alves Ferreira 














Desejo trocar correspon- 
dência com outros usuários 
do padrão MSX. 

Quem estiver interessado 
pode escrever para: 

Rua Tiradentes, nº316 — B, 
Guanabara — Campinas — 
SP — CEP 13023 
Fernando Ramires 





Jaboatão — PE — 


Sou possuidor de um 
11 e de um Hotbit. 
também vários softwares 
(uns 200 jogos e vários apli 
cativos). Gostaria, assim, de 
trocar idéias e programas 
com outros usuários do pa- 
drão MSX. Meu endereço é: 
Rua Cel. Francisco Galvão, 
nº 267/Apt 103 — Piedade — 
CEP 














54000 
Fábio Freire de Almeida 


de trocar corres: 
ja com outros usuá- 


Gostari 
pondênc 











rios da linha MSX. Os inte- 
ressados podem escrever 
para: 

Rua Paulo Miranda da Fonse- 
ca, nº 27Apt 704 — Colina 
— Volta Redonda — RJ — 
EP 27180 

rio P. Guimarães 





Desejo trocar informações e 
programas com outros leito- 
res da revista 

O endereço é 

CAIXA POSTAL 23 — Piras: 
sununga — SP — CEP 13630 
Gastão José dos Santos 
Souza 














DÉ A SEU MICRO 
OMELHOR 
TRATAMENTO 


Cuidamos do seu 
equipamento com uma 
equipe técnica altamente 
especializada e da sua 
tranquilidade com um 
atendimento de alto nível e 
honestidade absoluta. No Rio 
de Janeiro, só a MODULAR- 
SYSTEMS lhe oferece estas 
vantagens. 


€ Check-up grátis 

* Rapidez no atendimento 

e Transporte ida e volta 

* Relatório detalhado de 
serviços 

* Honestidade absoluta 
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Ê modular, 
k systems 
Rua Almirante Cochrane, 202 
Tijuca - (PBX) 284-6087 





DESVENDANDO 
OSMISTÉRIOS DOS 
DISCOS — O DIRETÓRIO 





J. S. Massarani 


A parte II desta série de 
artigos dá continuidade as 
soluções dos mistérios 
existentes nesse sensacional 
objeto magnetizável, que é o 
disquete de 5 4 polegadas. 
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Todos os programadores e 
usuários necessitam 
desvendar esses mistérios 
para fazerem bom uso de 
seus micro-computadores. 
Porém, nem sempre sã 
bem sucedidos em virtude 
do escasso acervo de 
informações no mercado. 
Minha intenção é, então, 
ajudá-los nesta tar 
apresentando mais 
informações sobre o 
Diretório. 











Ojetivo 

Esta parte objetiva 
apresentar como as 
informações constantes do 
Diretório são armazenadas 
nos disquetes de 5 4 
polegadas, sejam eles de 
face simples ou de face 
dupla. Para complementar 
o entendimento de como 
essas informações são 
armazenadas, é 
apresentado também um 
programa em BASIC, que 
permite analisar 

ualmente todas as 
informações contidas do 
Diretório, arquivo por 
arquivo. Cabe observar 
que esse programa é útil 
não só para o entedimento 
desse artigo, como 
também para qualquer 
tarefa que o leitor tenha 
que executar e que 
dependa do exame de 

















informações sobre 
arquivos ou Diretórios 
completos. 








Pré-Requisitos 
O único pré-requisito para 
o entendimento da Parte II 
desta série de artigos é a 
leitura e compreensão da 
Parte 1, publicada na 
revista MSX-Micro nº 11. 
Se o leitor ainda não 
adquiriu essa revista, 
sugiro que o faça o mais 
rápido possível, pois as 
ali contidas 
não estão disponíveis em 
nenhuma outra 

publicação a revista ou 
livro, da qual eu tenha 
conhecimento, 




















O Diretório — Como é 
armazenado? 

O leitor se recorda que o 
Diretório ocupa 4 (quatro) 
setores lógicos no disquete 
de 5 W de face simples 
(setores de números 5, 6, 7 
e8)e 7 (sete) setores 
lógicos no de face dupla 
(setores de números 5, 6, 
7,8,9, 10 e 11). Esta 
diferença na quantidade de 
setores necessários ao 
armazenamento do 
Diretório não deve 
surpreender o leitor, pois 
como o disquete de face 
dupla possui uma 
capacidade de 360 kbytes, 


ou seja, o dobro dos 180 
kbytes do disquete de face 
simples, é coerente que 
possa vir a ter uma 
quantidade bem maior de 
arquivos gravados que o 
disquete de face simples, 

Para cada arquivo que 
gravamos em um 
determinado disquete é 
criada uma Entrada no 
Diretório, que ocupa 32 
bytes do espaço reservado 
para o referido Diretório. 
Seja o arquivo gravado 
pelo Disk-Basic (isto é: um 
programa em BASIC, um 
arquivo de dados, um 
arquivo gravado pelo 
BSAVE, etc) ou gravado 
pelo MSX-DOS (isto é: um 
programa em Pascal, um 
arquivo de dados, um 
arquivo COM, etc.) essa 
Entrada no Diretório 
identifica o arquivo como 
único e exclusivo naquele 
disquete, não podendo 
haver duas Entradas iguais 
no Diretório, 

Sabemos do artigo 
anterior que em cada setor 
do disquete podem ser 
gravados 512 bytes. Então, 
usando aritmética simples, 
podemos determinar a 
capacidade de arquivos 
por disquete, 
multiplicando o número 
de setores reservados para 
o Diretório pelo número 


de bytes por setor e 
dividindo este resultado 
pelo número de bytes 
utilizados no Diretório 
para cada arquivo, ou seja: 
Face simples: 5 x 512/32 
= 64 

Face dupla: 7 x 512/32 = 
n2 

Isto é, em um disquete 5 
Ww de face simples 
podemos gravar um 
máximo de 64 arquivos e 
em um disquete 5 4 de 
face dupla um máximo de 
112 arquivos. 

Isto nos mostra que 
podemos atingir uma 
situação um tanto quanto 
estranha, mas verdadeira. 
Suponho que gravamos 
em um disquete de 5 4 
face dupla, 112 arquivos de 
2 kbytes cada um; com 
isso, gastamos 224 kbytes 
do disquete sobrando 
ainda espaço para gravar 
outros arquivos; mas na 
realidade não podemos 
gravar mais nenhum 
arquivo no disquete, pois 
o Diretório está lotado e 
não comporta nenhum 
outro arquivo. 

Eu particularmente 
aconselho que não se 
tenha disquetes com uma 
quantidade de arquivos 
superior a 40 (quarenta), 


pois fica muito 
complicado para o ser 
humano, não para o 
micro-computador, 
gerenciar esses arquivos. 
Evidentemente, há casos 
em que, obrigatoriamente, 
temos que ultrapassar este 
número. 

Nos casos em que se 
torna mais complicado 
para o leitor localizar 
arquivos após ser dado o 
comando DIR ou FILES, 
recomendo ler o meu 
artigo “O Classificador de 
Arquivos”, publicado na 
MSX-Micro, nº 8, página 
32, e utilizar o progranaa lá 
apresentado, que devido a 
erros de gráfica foi 
republicado na MSX-Micro 
nº 1. 

Parece-me lógico que a 
próxima versão do MSX- 
DOS permitirá a utilização 
de Diretórios em Árvores, 
o que permite o 
gerenciamento de arquivos 
com muito mais facilidade, 
não havendo, limitações 
quanto ao número de 
arquivos que se pode 
gravar em um disco (a não 
ser, lógico, a capacidade 
em bytes do disco). 
Aguardemos esperançosos. 
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Os Maravilhosos 32 Bytes 
Como acima explicado, 
cada Entrada no Diretório, 
para um determinado 
arquivo, ocupa 32 bytes 
do espaço reservado para 
o Diretório. Eu chamo 
esses 32 bytes de 
“maravilhosos” em virtude 
de serem eles o ponto de 
partida para a grande 
maioria dos comandos 
que trabalham com 
arquivos, Para citar apenas 
dois exemplos, se dermos 
o comando DIR pelo 
MSX-DOS ou FILES pelo 
Disk-BASIC, é analisando 
os 32 bytes de cada 
Entrada no Diretório para 
cada arquivo que esses 
comandos vão buscar as 
suas informações para nos 
mostrar na tela; se dermos 
um comando OPEN 
“TESTE” FOR INPUT AS 
1, é também analisando os 
32 bytes de cada Entrada 
no Diretório para cada que 
o Disk-BASIC vai verificar 
se o arquivo TESTE existe 
e, se existir, vai abrilo para 
nós, 
A disposição das Entradas 
no Diretório para cada 
arquivo é a seguinte: 

a) Cada Entrada é 
gravada no Diretório 
sequencialmente a partir 
da primeira; 

b) Ao apagarmos algum 
[=] 
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Início do Diretório 


132 bytes 


Arquivo 2 


Arquivo 3 





Arquivo 4 





Entradas ainda 
não utilizadas 


132 bytes 
132 bytes 
1 


' 
132 bytes 


| 
! 
esaecaeneaconooooaotosoooomefijp do Diretório 


1 Entradas ainda 1 
1 mão utilizadas | 
! t 











arquivo a Entrada por ele 
ocupada torna-se vaga para 
ser reutilizada; 

c) Se necessitarmos de 
uma Entrada para algum 
arquivo, a primeira, 
sequencialmente a ser 
encontrada será utilizada, 
tenha sido ela ainda não 
utilizada ou tenha sido ela 
de um arquivo apagado. 
Um exemplo esclarecerá 
melhor o acima descrito: 

a) Suponha que 
acabamos de formatar um 
disco e gravamos nele 4 
arquivos números 1, 2, 3 e 
4. O Diretório se 
apresentará como na 
Figura 1. 


b) Suponha agora que 
apagamos os arquivos 2 e 
4. O Diretório se 





apresentará como na 
Figura 2 

c) E finalmente suponha 
que gravamos mais três 
arquivos números 5, 6 e 7. 
O Diretório se apresentará 
como na Figura 3 


A Subdivisão das Entradas 
Cada Entrada no Diretório, 
ou seja, cada 32 bytes, 
contém uma série de 
informações sobre o 
arquivo que a ela pertence. 
Essas informações ocupam 
determinados bytes desses 
32 bytes. Denominemos 
cada informação dessa 
como área. A Tabela 1 
apresenta as áreas e os 
bytes que cada uma dessas 
informações utilizam. 
Cada área de A a H é 
uma informação utilizada 
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pelo MSX-DOS ou pelo 
Disk-BASIC para gerenciar 
os arquivos de cada 
disquete. 

O leitor poderá (e eu 
aconselho que o faça) 
examinar essas áreas para 
cada arquivo de seus 
disquetes, utilizando o 
programa que a seguir 
apresento. 


O Programa 
Este programa foi 
desenvolvido para 
possibilitar que os leitores 
examinem as informações 
constantes do Diretório de 
um disquete de 5 4 
polegadas, seja ele de face 
simples ou face dupla e 
esteja o disquete no drive 
AouB. 


Não são utilizadas sub- 
rotinas em assembler para 
tornar O programa mais 
rápido pois é minha 
intenção que o 
entendimento do mesmo 
atinja uma maior gama de 
leitores, por isso ele foi 
totalmente desenvolvido 
em BASIC e objetivando 
ser de fácil assimilação e 
não ultra-rápido. 

O programa é 
totalmente auto- 
explicativo, incluindo 
também uma tela de ajuda 
(help) caso o leitor 
necessite de explicações 
adicionais. 

Para uma melhor análise 
por parte do leitor, 
apresento a seguir como o 
programa está subdividido: 








! Arquivo 4 





Entradas ainda 


' h 
1 não utilizadas | 
' ! 











[ms neciaicasana san foassa=so ri o DARDO 

a) Configuração do j) Sub-rotinas auxiliares 
sistema (linhas 10 a 130) (linhas 1390 a 2390): 

b) Tela Inicial (linhas Tratamemto de limites do 
140 a 350) Diretório (1390 a 1540) 

c) Preparação do buffer — Tratamento de teclas do 
€ inicialização de variáveis cursor (1550 a 1650) 
(linhas 360 a 420) Apresentação da “Tela de 

d) Tela de Seleção Ajuda” (1660 a 2000) 
(linhas 430 a 590) Apresentação da tela 

e) Determinação do “Início de Diretório” (2010 
número de faces do disco a 2110) 
(linhas 600 a 670) Apresentação da tela “Fim 

f) Leitura do Diretório de Diretório” (2120 a 2220) 
(linhas 680 a 780) Apresentação da tela de 

8) Definição da última “Drive Não Previsto” (2230 
Entrada no Diretório a 2330) 
(linhas 790 a 870) Loop de tempo (2340 a 

h) Apresentação do 2390) 
Diretório (linhas 880 a k) Saída do programa 
1200) (linhas 2400 a 2450) 

i) Movimentação e saida Como o programa 
do Diretório (1210 a 1380) altera alguns parâmetros 

do BASIC, eu resolvi 


reestartar O sitema em vez 


de um simples retorno ao 
BASIC, para não trazer 
problemas a outros 
programas que venham a 
rodar posteriormente e 
que não prevejam a sua 
própria configuração. Se o 
leitor quizer interromper a 
execução do programa 
para examiná-lo sem 
reestartar O sistema, basta 
apertar CTRESTOP. 

A Figura é apresenta a 
tela do programa que 
mostra O Diretório. Cada 
tela apresenta 4 (quatro) 
Entradas no Diretório, a 
não ser que o disquete 
possua menos de 4 








=-----Infcio da Entrada 


(quatro) arquivos e, nesse 
caso, serão apresentados 
apenas os arquivos que o 
disquete possuir, 

A coluna DESL 
representa o deslocamento 
relativo em hexadecimal, 
dos bytes dentro do 
Diretório. 

As colunas 
HEXADECIMAL 
representam os bytes, em 
hexadecimal, constantes 
do Diretório. 

A coluna ASCIL 
representa os caracteres 
correspondentes a cada 
byte da coluna 
HEXADECIMAL, [= 





anca Fim da Entrada 
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20 xmx CONFIGURAR x 
+%% LEITOR DE DIRETÓRIO 44x Pro 
DESL HEXADECIMAL ASCII 30 
0000 44 52 54 33 50 32 20 20 ART3P2 CO NBRRIE à 
0008 41 53 43 00 00 00 00 00 AS... 0 ULDTH dao 
00LO 00 00 00 00 00 00 AE ME 70 FOR I=i TO 40 
00LB B6 OE 02 00 BO 18 00 00 80 KEY 1,” 
0020 AÍ 52 54 33 50 32 20 2 90 NEXT “ 
0028 42 AÍ AB 00 00 00 00 00 100 KEY OFF 
0030 00 00 00 O 00 00 00 00 110 CLEAR 30, &H9FFE 
0038 B4 VE 08 00 00 12 00 00 420 MAXFILES=0 
O0HO AS 52 54 33 50 30 20 20 130 DEFINT 1-K 
0048 42 44 53 00 00 00 00 00 140 * 
0050 00 00 00 MO 00 00 00 00 150 "xxx TELA INICIA 
0058 B6 OE OD 00 28 43 00 0) E cinee 
0060 41 52 54 49 47 4F 34 2 160 
0068 AÍ 53 43 00 00 00 00 00 170 CLS 
0070 00 00 00 00 00 00 00 00 480 PRINT SPCC(5)5/%% 
Mona 59 OC de 0945 10/00/00 * LEITOR DE DIRETORI 
48% UTILIZE CURSORES x%8//J=AJUDA O meu” 
I=INÍCIO DIRETÓRIO//F=FIM DIRETÓRIO 490 PRINTEPRINTEPRIN 
DENOVO DIRETÓRIO//R=RESTARTAR SISTEMA T “Programa elaborad 





O leitor deve notar que 
cada 32 bytes, ou seja, 4 
(quatro) linhas da tela, se 
refere a uma Entrada no 
Diretório, isto é, um 
arquivo. 

O leitor deve analisar as 
áreas de Aa H 
anteriormente 
mencionadas de cada 
bloco de 32 bytes e 
certamente já identificará o 
significado de algumas 
delas só de observá-las. 

Caso o leitor não 
consiga identificar 
nenhuma das informações, 
não se preocupe, nas 
próximas partes desta série 





A parte 1 apresentou: 

a) O que é o Diretório; 

b) Onde é armazenado 
o Diretório; 

A Parte II apresentou: 

c) Como são 
armazenadas as 
informações no Diretório 

— Um programa em 

BASIC para examinar o 
Diretório 
de artigos eu as explicarei 
uma por uma e 
apresentarei exemplos de 
utilização das mesmas e 
alguns programas de 
grande interesse para o 
leitor. 

Aguardem a Parte II !!! 


18 MSX Micro 





o por J.S.MASSARANI . 


200 PRINTEPRINT “Ver 
sao 1.0” 

210 PRINT “Data: 01 
de fevereiro de 1987 


220 PRINT:PRINT “Est 

e programa pode ser 
utilizado 

230 PRINT “para qual 
quer finalidade que 
se” 

240 PRINT “deseje,ex 

ceto aquelas que env 
o1=” 

250 PRINT “vam aspec 

tos comerciais.” 














260 PRINTEPRINT “PRE 
STIGIE NOSS0S TRABAL. 
HOS.” 

270 PRINTEPRINTEPRIN 
T “Seleciones” 

280 PRINTESPRINT SPC( 
3)3“D = LER DIRETORI 
o” 

290 PRINTEPRINT SPC( 
325“R = REESTARTAR 8 
ISTEMA” 

300 PRINTEPRINT SPC( 
3950] = TELA DE AJUD 
A” 

310 AB=INKEYGEIF Ab= 
“” THEN 340 

320 IF CAB="D) OR « 
Ab="d”) THEN 390 

330 IF (AB="J) OR « 
A="5") THEN GOSUB 4 
6PORGOTO 170 

340 IF CAB=/RO) OR « 
AG="r") THEN 2430 
350 GOTO 340 

360 
370 
FER 
380 
PA 
400 
OKE 
440 
420 
430 
440 


xxx PREPARA BUF 
E VARIAVEIS xxx 


KH=&HAO :KL=8H0 
POKE &HF3S4,KLE:P 
&HF352,KH 
El=2564KH+KL. 
JX=0:DI=0 


xxx TELA DE SEL 


ECAO xxx 

aso 

460 CLS 

470 PRINT SPC(5);x* 
* LEITOR DE DIRETORI 
O xxx” 

480 LOCATE 0,8 








490 PRINT “Selecione 

500 PRINTIPRINT SPC( 

3)5“A = LER DIRETORI 

O DE A” 

540 PRINT:PRINT SPC( 

325“B = LER DIRETORI 
o DE BY 

520 PRINT:PRINT SPC( 

3)7“J = TELA DE AJUD 

A” 

530 PRINT:PRINT SPC( 

3)5“R = REESTARTAR S 
ISTEMA” 

540 AG=INKEYBEIF Ab= 

“” THEN 540 

550 IF (AG=/A") OR « 

Ag="a”) THEN KD=1:60 
TO 630 

560 IF (AB="BD) OR ( 

Ag="b”) THEN KD=2:60 
TO 430 

570 IF (AG="J) OR « 

Ag="5") THEN GOSUB 4 
6POZGOTO 460 

580 IF (AG="R?) OR « 
Ag="r") THEN 2430 

590 GOTO 540 

600 

610 xxx DETERMINA F 

ACES DO DISCO xxx 
420 

630 DE=DSKIBCKD,1) 

640 IF (PEEKCEI) AND 
e52)=252 THEN KC=8: 
GoTO 710 

650 IF (PEEKCEI) AND 
253)=253 THEN KC=iá 
s60TO 710 

660 GOSUB 2260 

670 GOTO 460 

480 


690 "xxx LER DIRETOR 
IO xxx 

700 

740 JH=KH 

720 FOR J=5 TO KC 
730 D$=DSKIGCKD, J) 
740 JH=JH+2 

750 POKE &HF3S2, JH 
760 NEXT J 

770 AP=256%4PEEK CRHES 


We) +PEEK (&HF 354) 
780 POKE AP,O 


790 

800 xxx DEFINE ULTI 
MA ENTRADA see 

810 

820 FOR AC=EIL TO AP 
STEP 32 

B30 IF PEEKCAC)=0 TH 
EN 850 


840 NEXT AC 
850 LI=ACIKE 
860 IF LI-EI)> 
EN 910 

870 KF=(LI-EI)/8 

eso * 

B90 “xxx APRESENTA D 
IRETORIO xxx 

900 

910 CLS 

920 PRINT SPC(S);"x* 
* LEITOR DE DIRETORI 
O xx” 

930 PRINT “DESL;SPC 
(795 

940 PRINT “HEXADECIM 
AL“ GSPC(B)s 

950 PRINT “ASCII”SPR 
INT 

960 DE=DIZEN=EI 
970 EN=EN+DE. 
980 ASp="” 





ó 





28 YH 
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DESVENDANDO 


OSMISTÉRIOS DOS 
DISCOS — O DIRETÓRIO 









DEB=RIGHTE(“000 
+HEXBEDE) , 4) 
4040 PRINT DEG;SPCCÁ 





KCEN+I) 
IGHT$ (COM + 
BCKYD e) 

PRINT KYG;SPCÇÁ 





IF (KY<32) OR € 
THEN KY=46 


+CHR$CKY 







NEXT I 
PRINT AS 





NEXT 
PRINTEPRINT “xx 


4450 PRINT “//"5 
4160 PRINT “JA JUDA” 
4470 PRINT “I=INICIO 
DIRETORIO”; 

4480 PRINT “//30F=E 
IM DIRETORIO” 

1490 PRINT “D=NOVO D 
IRETORIO”; 

1200 PRINT “//“;"R=R 
ESTARTAR SISTEMA” 
1210 * 

4220 "xxx MOVIMENTO 
NO DIRETORIO xxx 
1230 * 

1240 CS=STICK(O) 
1250 IF C8=0 THEN 43 
10 

1260 GOSUB 1420 








4270 IF JX=0 THEN 94 
o 

1280 JX=0 

1290 ON CS GOSUB 162 
O, 1 1580, , 1640, , 1600 
1300 GOTO 940 

1310 AB=INKEYS 

1320 IF AG="" THEN 4 
240 

1330 IF (A$=/D”) OR 
(AG="d”) THEN 390 
1340 IF (A6="J”) OR 
(A6="4") THEN GOSUB 
16902G0TO 910 

1350 IF (AG="R”) OR 
CAG="r") THEN 2430 
1360 IF (AB="17) OR 
(AG=",7) THEN GOSUB 
1480:G0TO 940 

1370 IF (AB="F”) OR 
CAg="F") THEN GOSUB 
15102:G0T0 910 

1380 GOTO 1240 

1390 * 

1400 "xxx TRATAMENTO 
DE LIMITES sex 

1410 * 

1420 IF ((CS=7) OR « 
CS=1)) AND (DI=0) TH 
EN 2040 

1430 IF ((CS8=3) OR ( 
CS=5)) AND (CENSLI) T 
HEN 2150 

4440 IF (C8=7) AND ( 
DI<í28) THEN 1490 
1450 IF (CS=3) AND ( 
LI-EN(128) THEN 1520 
1460 JX=1 

1470 RETURN 

1480 IF DI=0 THEN GO 
SUB 2040 


1490 DI=0 

1500 RETURN 

45410 IF EN=LI THEN G 
OSUB 2150 

1520 IF KF<46 THEN D 
I=02:RETURN 

1530 DI=LI-EI-128 
1540 RETURN 

1550 * 

1560 "xxx TECLAS DO 
CURSOR xxx 

45720 

1580 DI=DI+i28 

1390 RETURN 

1600 DI=DI-128 

1640 RETURN 

1620 DI=DI-3& 

1630 RETURN 

1640 DI=DI+32 

1650 RETURN 

1660 * 

1670 "xxx TELA DE AJ 
UDA sex 

1680 * 

1690 CLS 

1700 PRINT SPC(5);“% 
** LEITOR DE DIRETOR 
TO xxx” 

4740 PRINT SPCCB);”= 
-- TELA DE AJUDA 
1720 PRINT 

1730 PRINT “Dependen 
do da tela, as segui 
ntes” 

4740 PRINT “teclas p 
odem estar ativasi” 
1750 PRINT 

14760 PRINT “TECLAS D 
O CURSOR:” 

4770 PRINT Csmemmms mes 
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1780 PRINT “PARA CIM 
A = ARQUIVO ANTE 
RIOR” 

1790 PRINT “PARA BAI 
xo = PROXIMO ARQU 
IVO” 

1800 PRINT “PARA ESQ 
UERDA = PAGINA ANTER 
TOR” 

1840 PRINT “PARA DIR 
EITA = PROXIMA PAGI 
NA” 

1820 PRINT 

1830 PRINT “TECLE“;S 
PCCLS)3 PARAM 

1840 PRINT “ 
[izfg tcp) ao 
1850 PRINT SPC(2);"1 





1860 PRINT SPEC(4)5“1 
R AO INICIO DO DIRET 
ORIOY 

1870 PRINT SPC(2)5"F 


1880 PRINT SPC(4)5“I1 
R ÃO FIM DO DIRETORI 


PRINT SPC(2)57A 


PRINT SPC(4);"75 
ELECIONAR DISQUETE D 
O DRIVE A” 

19410 PRINT SPC(2)5"B 


1920 PRINT SPC(4);"5 
ELECIONAR DISQUETE D 
O DRIVE B” 

1930 PRINT SPC(2);"D 


1940 PRINT SPC(4);"8 
ELECIONAR OUTRO DISQ 
VETE” 

1950 PRINT SPC(2);"R 
1960 PRINT SPC(4);"R 
EESTARTAR O SISTEMA” 
1970 PRINT 

1980 PRINT “Tecle al 
DO no” 

1990 AB=INKEYG:IF AS 
=" THEN 1990 

2000 RETURN 

2010 * 

2020 "xxx TELA INICI 
O DE DIRETORIO xxx 
2030 * 
2040 CLS 

2050 PRINT SPC(5);“x 
*x* LEITOR DE DIRETOR 
IO xxx” 

2060 LOCATE 9,10 
2070 PRINT “VOCE JA 
CHEGOU AO” 

2080 PRINT 

2090 PRINT SPC(8);“I 
NICIO DO DIRETORIO!” 
2100 GOSUB 2370 

2110 RETURN 

2120 * 

2130 "xxx TELA FIM D 
E DIRETORIO xxx 

2140 * 

2150 CLS 

2160 PRINT SPC(5);x 
*x* LEITOR DE DIRETOR 
IO xxx” 

2170 LOCATE 10,10 


2180 PRINT “VOCE JA 
CHEGOU AO” 

2490 PRINT 

2200 PRINT SPC(40)3” 
FIM DO DIRETORIO!” 
2210 GOSUB 2370 

2220 RETURN 

2290 * 

2240 
NAO 
2250 

2260 CLS 

2270 PRINT SPCC(5);"% 
** LEITOR DE DIRETOR 
TO xxx” 

2280 LOCATE 7,9 

2290 PRINT “DRIVE NA 
O PREVISTO! 11” 

2300 PRINT 

2310 PRINT SPC(4)44E 
NTRE EM CONTATO COM 
O AUTOR.” 

2320 GOSUB 2370 

2330 RETURN 

2340 * 

2350 "xxx LOOP DE TE 
MPO sex 

2360 * 

2370 TIME=0 

2380 IF TIME(480 THE 
N 2380 

2390 RETURN 

2400 * 

2410 "xx* SAIDA DO P 
ROGRAMA xxx 

2420 " 

2430 DEFUSR=0 

2440 A=USR(O) 

2450 "xxx FIM DO PRO 
GRAMA xxx 


“xx TELA DRIVE 
PREVISTO see 


LASX] 
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VA A A AS AS 


PROGRAMAS 


BANCO DE DADOS 


Disponível originariamente 
para micros TRS-80, este 
banco de dados, especial- 
mente adaptado para O pa- 
drão MSX, permite manipu- 
lar até 60 registros com 8 
campos por arquivo em dis- 
co, ou até 100 registros em fi 
ta cassete, De operação bas, 
tante simples, a principal ca- 
racterística deste programa é 
ser inteiramente auto-expli- 
cativo: todas as suas funções 
são orientadas por menus, 
Ao rodar o programa, sur 
ge na tela um menu inicial 
formado por duas opções: 











| — Criar um novo arquivo 
2 — Carregar um arquivo 


Ao selecionar a primeira op 
ção, você deverá definir ca- 
da campo como númerico 
(N) ou alfanumérico (A). De 
finida a estrutura, surgirá em 
tão um menu principal, que 
apresenta as seguintes op 
ções: 


c Colo 
M — Modific: 
D — Deletar 
O — Ordenar 











J — Justificar 

T — Totalizar 

R — Redefinidor 
L — Listar 

N Novo Banco 
s Sair 


P — Procurar 
G — Gravar 

1— Imprimir 
F — Diretório 


Aqui está um resumo dos co- 
mandos empregados pelo 
programa 


€ — Colocar (Registro) 
insere dados de um registro 
no banco. 

L — Listar — lista todos os 
registros já inseridos, 


M — Modificar altera 
conteúdo de um registro. 


N Novo Banco — 
reinicializa o banco de da- 
dos. 


D — Deletar — deleta um 
ou mais registros do banco 
de dados. 





S — Sair — Sair do progra 
e entrar no Basic. 





O — Ordenar — coloca os 
registros em ordem alfabéti- 
ca 
P — Procurar — procurar 
um item nos registros. 


] — Justificar — faz a tabula 
ção dos campos na tela e na 
impressora. 





G — Gravar — grava arqui 
vo em disco ou fita 





T Totaliza itens — totaliza 
valores em um campo nu 
mérico. 


1— Imprimir — imprimir 
arquivo em impressora. 





R — Redefinidor de te 
clas — para redefinir as te 
clas de função, o que facilita 
a inclusão dos dados. 





— Diretório do disco — 
mostra o diretório do disco, 
sem sair do programa 


Alterações 
A digitação do prograr 
oferece maiores complic: 
ções, mas se você não tem 
unidade de disco, preste 
atenção nas linhas 10 e 14 
Na versão em cassete, a linha 
14 deve ser alterada 

















I4MF = 7:Ml=Zl +33 

Do mesmo modo, na li 
nha 10, modifique a inscri 
ção CLEAR 5000 para 
O. 





Com o cartucho modem da TELCOM 
TELEMÁTICA você pode acessar o Ciran- 
dão, o Aruanda, a Bireme, comunicar-se 
micro-ô-micro, e contactar bancos de da- 
dos no Brasile no Exterior. 

O multimodem)áincorpora a AS-239, e 
osoftware de comunicação é gratuito. 


MULTIMODEM 


O único que opera em 

75, 300 e 1200 bits/s, 

em BELL e em CCITT. 
| Compatível com o EX- 
| PERTeoHOT-BIT. 


TELCOM TELEMÁTICA 
Rua Anita Garibaldi, 1700 - : (0512)419871 
90430 -Porto Alegre-RS - Brasil 





MSX é marca registrada da Gradiente Eletrônica S/A 

















1 KEYOFF: COLORS, 1:FORA=ITOLO: 
KEYA, "NEXT 

2 SCREENS 

3 OPEN"GRP: "ASS! 

4 PRESET(10,20):PRINTEL," BA 
Nco! 

5 PRESET(50,70);PRINTA," DE 


6 PRESET(40, 130) :PRINTAL, “DAD 
os 

7 FORQM=1TO3000:NEXTOM 

8 CLOSE 

9 OLSISCREENO 

10 CLEMRSOO; 
AT 
FEM 
17 POKES4683!, 255: ZY$=CHRS (ZY 
)ACHRS (ZA) ACHR$ (TB) +CHRS (0) + 
CHRS (LD) +CHRS (16): LO$=CHRS(ZH 
JACHRS (ZF) ACHAS (99) +CHAS (ZA) + 
CHR$ (TB) +CHRS (TE) +CHRS (20) 

12 DEFSTRA-H:DEFINTI-S 

13 BersFL= "gana 

14 HE=:NI=2Y-7 

15 DINDIME) LATUNE) FAME), TIM 
DNF CMF 

16 DINOCNDO, VINDO RENT) ANE, 
MD IME 

17 ONERRORGOTO74 

18 CLS 

19 PRINTSTRINGS (39,200) 

20 PRINT" Produzido por 
sU85" 4 “5706 

21 PRINTSTRINGS (39, 200) 

22 PRINT 

23 PRINTTAB(12) "BANCO DE DADO 
g 

24 PRINTTAR(L2)!====— == —— 








25 PRINTTAB(12) "SELECIONE OPC 
AO: "PRINT 

26 PRINTTAB(I2)"1 = Criar nov 
o arquivo" 

27 PRINTTAB(12)"2 - Carregar 
um arquivo": PRINT 

28 PRINTSTRINGS (39,200): PRINT 
29 PRINTEPRINTO ==) "551NP 
UT'OPCAO 4 ";N 

30 IFICC)LOBTHENNEN 

3 TFNCLORNDIZTHENDS 

32 ONNGOTO33,47 








33 CLS:NF=0:NI=0;PRINT "Defina 
os campos: ":PRINTSTRINGS (39, 
200) 


34 PRINT“Entre cos a definica 
o: ":PRINT“(N) para nuserico o 
u (8) para alfa": PRINTSTRINGS 
(39,200) 

35 FORI=OTONP:AT(L=""D(1)=* 
36 PRINTCagpo nos “;1+45:1NP 
UTDÇ ATCL 


37 IFLEN(D(I))>IOTHENCT)=LEFT 
SHD(T5,10) 
38 IFD(I)= 








THEN42 
NºORAT (1)="Aº THEN 


40 PRINT"Voce deve especifica 
r <> ou CA)"SBOTOSE 

41 NEXTI 

42 NF=1 
43 CLS:PRINT"O banco tea";NF+ 
1j"campos, desta aaneira:* 
44 FORI=OTONF 

45 PRINT"Campo no, "El+t;"s"; 
DEI); TAB(IO) FATE) 

46 NEXTI: GOSUB69: GOTO7A 

47 CLS:LOCATEO, HL:PRINT"O arq 
foi gravado es <Disco ou <F 
dita? 

48 HJS=INKEVS: IFHI$=""THENATE 
LSEIFHIS="F"THENS9ELSEIFHOS=" 
DºTHENSOELSESS 

49 CLS:PRINT'Prepare o casset 
e” 

50 PRINT"CENTER>+CONTROLD+(S 
TOP> p/ voltar": GOSUB69 

51 OPEN"CAS: "FORINFUTASSL 

52 INPUTRL,NI,NF 

53 FORI=OTONF: INPUTSL, DCL) AT 
(DENEXTI 

54 FORJ=OTONI:FORI=OTONF: IFAT 
(D="NºTHENST 

55 IFAT(I)="A"THENSO 

56 PRINT"ERRO DE LEITURA":6OS 
UB69: BOTOZ3 

57 INPUTAL, XCI,J):BOTOSS 

58 INPUT$L,A(I,J)ENU=NI+: TEN 
U-]=0THENS3 

59 NEXTI, J: CLOSE: GOTOAS 

60 CLS: INPUT"Nome do arg. a s 
er chamado"; CUS 

61 PENA: "+CUS+". ARQ"FORINPU 
TAS&L 

62 INPUTRL,NI,NE 

63 FORI=OTONF: INPUTEL, DI) ,AT 
CDENEXTI 

64 FORJ=OTONI:;FORI=OTONF: IFAT 
(1)="NºTHENH6 

65 TFAT(L)="A"THENST 

6b INPUTAL, KT, J):BOTOSA 

67 INPUTRL,ACI O): NU=NI+: TEN 
U-J=0THEMA3 

68 NEXTI, J:CLOSE:GOTO43 

b9 PRINT: INPUT"APERTE “ENTER” 
QUANDO ESTIVER PRONTO" ;EN 

TO RETURN 

71 PRINT'ESta correto (S/N) * 
j 

72 INPUTAS: IFAS="S"ORAS="NºTH 
ENRETURN 

73 PRINT"Responda com *S” ou 
"Nº": 607072 








IE] 








OLMG. 


— Aprofundando-se no Expert — Piazzi 
— Coleção de Programas para MSX 2 Vols. — Oliveira 
— Dominando o Expert — Gradiente 
— Hot Data: Gerenciador de Dados para MSX — Watanabe 
— Hot Logo: Primeiros Passos — Lacerda . 

— Hot Word: Processador de Texto para MSX — Watanabe 
— Jogos de Habilidade para MSX — Martins 

— Jogos em Assembler para MSX — Ravis 

— Linguagem Basic para MSX 

— Mais Jogos e Gráficos para MSX — Carter 

— MSX Com Disk Driver — Casari 

— MSX Como Programa — Hartnell 

— MSX Jogos em Ação — Monsaut 

— MSX Jogos para apreender e criar 3 vols, — Burd 

— MSX Gráficos, Conceitos e Programas — Cavanha 

— MSX Guia do Operador — Burd 

— MSX Guia do Usuário — Hoffman 

— MSX Melhores Programas — Alves 

— MSX Prática e Domínio — Casari 

— MSX Programação Assembler — Fagot 

— MSX Programas em Linguagem de Máquina — Webb 
— MSX Rotinas Gráficas em Assembler — Webb 

— MSX Técnicas de Programação de Jogos em Assembler — Fagot 
— Planilha de cálculos para MSX — Watanabe 

— Programação Avançada em MSX — Figueredo 

— Resumo de Operações do Expert 

— 77 Programas para MSX — ABREU 

— Simulação MSX — Burd 

— Sistema de Disco para MSX — Oliveira 

— Usando o Disk Driver no MSX — Silva 


Pedidos e Informações pelo tel.: (011) 257-6200 
Atende-se também pelo reembolso postal 


R. Basilio da Gama, 116 — Centro Metrô República — 
Saida 7 de Abril — CEP: 01046 — São Paulo — SP 












































Agora você não precisa quebrar a cabeça para escolher o 


software “adequado. 

A Game of time tem o softwear perfeito a preços compatíveis. 
Confira: 

Games (todos os tipos) à Cz$ 40,00 

Telefone ou peça catalogo pelo correio: 

REMETEMOS PARA TODO O BRASIL 


Dame of time 


software 
Rua Dona Leopoldina, 532 - C/2 - São Paulo - SP. 
CEP: 04278 - Telefone: (011) 63-2818 








74 CLS:PRINTTAB(10); "Comandos 

do sistema :":PRINTSTRINGS (3 

9,200): PRINT 

75 PRINT"C-COLOCAR + 
L-LISTAR * 

7b PRINT"N-MODIFICAR 
N-NOVO BANCO" 

77 PRINT'D-DELETAR 
S-SAIR - 

78 PRINT"O-ORDENAR 
P-PROCURAR * 

79 PRINT'J-JUST. IMP. 
G-ORAVAR” 

80 PRINT'T-TOTALIZAR + 
T-IMPRIKIR * 

Bi PRINT'R-REDEFINIDOR ue 
F-DIRETORIO! 

82 PRINT:PRINTSTRINDS (39,200) 

SPRINTO ==> "55 INPUT "COMANDO 

SA 

3 IFLEN(A)G>ITHENTA 

B4 RESTORE:FORI=!TOL4 

85 READ, NM: IFA=CTRENCLS: GOTOS 


B6 NEXTI:GOTC7A 

87 OHNSNTOS4,110,112,88,128,2 
22,223,23,244,145,163,179,256 
1276 

38 BOTO260 

39 DATA'CS 1, PM ,D,0D2,3, SP, 
4, P4,5 Ut by PL 8,7 

90 DATA'N",6,"1",9, 50,10, "TT" 
341,"6" 12 13, "F",IA 

91 NI=NI+i 

92 GOSUB9E: GOSUBIOS 

97 GOSJET: 

94 TFACD"S"THENSO 

95 PRINT"Banco contem"gNl+s" 
registros," 

96 FRINT;PRINT"Colocar autro 

registro (S/N ";:GOSUB72 

97 1FA="S"THENTIELSETS 

98 CLS:PRINT'No, de registro" 
PJ+ITPRINT 

99 FORI=0TON 

100 IFATEL)="HºTHI 

104 INFUTACL,J):XC1,])=0:6070 
103 

102 ENPUTALIJITAI D)="" 

103 NEXTI; RETURN 

104 CLS:PRINT'Registro No. “5 

+l5"agora esta assim: " 

105 PRINT: FORI=OTONF: PRINTD(I 
Ji TABCILOS 

106 IFAT(I)="NºTHENIOB 


107 PRINTB;A(I,3):60T0109 

108 PRINTUSINGFL;X(1,9) 

109 NEXTI: PRINT: RETURN 

140 INPUT*No, do registro a a 
odificar"; 

11 IFIDOANDICNI+ZTRENI=]-1:6 
orott3 

112 PRINT"Registro No. "5J;*na 
o esta no banco": GOTOI6 

113 GOSURIOS 

114 GOSURTI 

115 TFAS)"S"THENGOSUE9E: GOTOL 
13 

116 PRINT:PRINT"Moditicar out 
ro registro (5/N)";:30SUB72 
17 TFA="SºTHENIIOELSETA 

118 INPUT'No. do registro a s 
er deletado";J 

149 J=0-1:1FJ)=0ANDJC=NITRENL 
2% 

120 PRINT'Registro No": 

não esta no banco';607 

124 TFJSNITHENIZSELSEK=3 

122 F=K+1;FORINOTONF 

123 ACLKI=SASI, Ke) X=01,X+1) 
:MENTI 

124 TFKCNI-ITHENIZZ 

125 NI=NI-1;PRINT"Banco conte 
m'pNi+I; "ragistros” 

126 PRINT:PRINT"Deletar outro 
registro (9/N)";:G0SUB72 
127 JFh="S"THENLIBELSETA 

128 A="a ser procurado” 

129 FORI=0TONF 

130 PRINT'Campo No. "5 1+15D( 
D 

13 NESTE 

132 GOSUBI4Z 

133 PRINT'Encre expressao a s 
er procurada"; 

134 IFAT(M)="NºTHENINPUTK:L=2 
3BOTOLT4 

135 INPUTAIL=1 

136 K=0:FORJ=0TONT: ONLGOTO137 
«138 

137 USLENTA): TFLEFTS (ACM, 9), U 
IX DATHENI40ELSE 139 

138 TFE(M,J)COKTHENTSO 

139 GOSUB104:GOSUBA9: K=h+1 
140 NEXTJ:CLS 

141 PRINTK; "REGISTROS ENCONTR 
ADOS, ": GOSUBS9: GOTO74 

142 PRINT'Entre o No. do camp 


ETURN 
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144 PRINT"No. de campo ilegal 
".GOTO142 

145 A="a ser ordenado” 

146 FORI=OTONF 

147 PRINT"Caspo No, ";I+;DCI 
, 

148 NEXTI 

149 GOSUBI42 

150 LFAT(M)="A"THENIST 

154 FORI=0TONIS0(D=I:YCI)=kt 
MDS NEXTI 

152 FORJ=0TONI-1 

153 FORI=]+TONT: DPVAT) C= YET) 
THENISE 

154 VE VCD) CDE =Y 
155 0=0/91:04])=041):0(1)=0: 
OTo1sI 

156 NEXTI,J:GOTO7A 

157 FORI=0TONI;0(1)=1:B(I)=A( 
HE DEMEXTI 

158 FORJ=0TONI=1 

159 FORI=0+LTONT: LFR (J) C=B(T) 
THENL6Z 

160 C=Rtg):B(J)=B(T):R(I)=O 
161 0=0(9);0(0)=0(1):0(1)=0:6 
DT0159 

152 NEXTI, 3; GOT074 

167 A="Para totalizar” 

164 FORI=0TONF 

165 IFAT(1)="NºTHENPRINT' Comp 
o No. "sT+;D(T) 

156 NEXTI 

167 BOSUBI4Z 

168 PRINT'Totalizar todos os 
registros (8/N) ";:BISUBT2 
169 TFA="SºTRENITE 

170 GOTO7A 

um FORI=0TONI: IFA="S 
*THENL7S 

172 IFATIMC)="NºTHENITA 

173 IFASA(HO, 1) THENITSELSELTA 
174 FFXCON ANE, Di THENITO 

175 T=T+K(M, E) sk=k+L 

176 NEXTI 

177 PRINT:PRINT'Total para o 
campo € "B;D(MI;R;" > e PR 
INTUSINGFI;T 

178 PRINTK; "itens somados": GO 
SUB49: GOTO74 

179 soTo180 

180 CLS:LOCATEO, Li: PRINT" Quer 
gravar ea <Dbisco ou «Frita 
181 HIS=INKEYS: IFHIS=""THENIE 
OELSETFHIS="D"THENISLELSEISA 








182 CLS:PRINT"Prepare 0 grava 

dor /fita"s BOSUBS9 

183 OPEN"CAS: "FOROUTPUTASHL 
184 PRINTHL, NI", "NF 

185 FORI=OTONF:PRINTS!, DCI)", 
*ATEIVENEXTE 

186 FORJ=OTONI;FORI=OTONFS IFA 
T(l)="NºTHENIOS 

187 IFAT(I)="A"THENISO 

188 PRINT&L,X(1,J):6CT0190 
189 PRINTEL,ACI,J):NUSNI+S: IF 
NU-J=0THENTA 

190 MEXTI,J:CLOSE:GOT074 

191 CLS: INPUT"Qual o nome do 
arquivo "GNOSE 

192 OPEN"A:"+NDS+". ARQ"FOROUT 

PUTAS! 

193 PRINTRI NINE 

194 FORI=OTONF:PRINTE! DCD)", 
PAT(TISNEXTE 

195 FORJ=0TONI:FORI=OTONF:IFA 
T()="NºTHENL97 

196 IFATCI)="A"THENISA 

197 PRINTAL, X (1, ):BOTOL99 
198 PRINTSL,ACE,J)ENU=NI+L: TF 
NU-1=0THENT4 

199 MEXTI, CLOSE: GOTO74 

200 PRINT"Listar todo 0 banco 
(5/N) "y:BOSUB7Z 

201 IFA="S"THENTA=0: 12=NI;60T 

(205 

202 INPUT"Primeiro e ultimo n 
o. do registro ";Ii,IZ 

203 I=[1-171FIIOTRENTI=O 
204 12=12-1: 1FIZNITHENIZ=NI 

205 PRINT" Impriair definicoes 
dos campos (S/N) *;; GOSURTZ 

206 PRINT" Imprimir o No, dos 

registros (3/N)";:GOSUB7Z 

207 PRINT" Imprimir o No. dos 
registros (3/N)";: GOGUB7Z 

208 IFA="S"THENPR=IELSEPR=2 
209 PRINT'ER ordem: 1 - Cresc 

ente“; PRINT'Z - Alfabetica ou 
Nunerica";: INFUTRO 

2140 IFPOCIORPO)ZTHENZOS 

2it PRINT Inpressão justifica 

da (5/N)";: BOSUR72 

212 IFh="S"THENFJ=1ELSEPI=2 

217 PRINT"Foraatar campos num 

ericos (5/N)“;; GOSUBTZ 

214 IFA="NºTHENZZO 

245 FORI=OTONF: IFAT(D)O"NSTH 

ENZI8 

216 PRINT'Campo"s D+; "(S/N)"; 

: BOSUB72 


217 1FA="SºTHENNE (1)=1:E0TO21 

kd 

218 NF(1)=0 

219 NEXTI 

220 INPUT*No. de linhas es br 

anco entre Regs.“sLR 

221 RETURN 

222 PRINT"Coloque a tabulacao 

para cada campo": PRINT" (Osho 

va linha)" 

223 FORI=0TONF 

224 PRINT"Campo No, 

) 

225 NEXTI 

225 FORI=OTONF:PRINT'Tabulaca 

o para o campo'jl+1; 

227 INPUTTET:ENEXTI: GOSUBTA 

228 G0SUB200:K=11 

229 TFPO=ITRENJ=KELSEJ=0(K) 

230 IFPR=ITHENPRINTO(Cued:) 

231 FORI=OTONF 

232 1FPF=ITRENPRINTO(T) Bi TAR 

um; 

233 IFOJX)ITRENTIS 

234 IFTEIDDOTHENT=T A) SPRINTT 

AR(THE 

235 1FAT(G!="NºTHENCIT 

23 PRINTRIA(I,9/5:60T0239 

277 TFNF(I)=OTRENPRINTX (1,0); 

1BOTOZIS 

238 FRINTUSINGE IG SCT.U)S 

23º IFICNFTHENIFEJ=ATHENIET(T 

+1)CD0TRENDSL 

240 PRINT 

241 NEXTI;GOSURES; FORL=ITOLE: 

PRINTENESTL 

282 K=K+1: IFKS=I2THENZ29 

243 PRINT" &c a listager c 

PINTAS "reg. *; GOSURS9: GOTOT 

4 

“244 PRINT" Apronte à ispressor 

2 BOSUBZ4S; 2 RINTCHRS (2 
307" CHPS (19): EOSURZON:K=T5 
5 IFPO=1 KELGEJ=0(K) 

245 1FPR=ITHENLPRINTO ("505")! 

247 FORI=OTONF 

28 IFPF=ITHENLPRINTDLD GRITA 

Ri20); 

249 IFPJS>ITHENDS! 

250 JET(I)DOTHENT=T (TD) :LPRINT 

TARITIS 

251 IFATEI)="NºTHENDSS 

252 LPRINTRSA(I,9):: 6070255 

253 IFNF(T)=OTHENLPRINTA(1,0) 

+: BOTO25S 


“SI+GDCL 





254 LPRINTUSINGFI;X(1,9); 
255 IFICNFTHENTFPO=1THENIFTCI 
+1)XDOTRENZIS 
256 LPRINT 
257 MEXTI 
258 K=K+1: IFKX=IZTHENZAS 
259 BOSUBE9:GOTO74 
260 CLS:LOCATESC, Li: PRINTO Sae 
Cuidado 344" 
261 LOCATEO, 12: INPUT" Ja gravo 
u este arquivo (S/h) “US 
262 1FUS="S"THENZEJELGETFUG=" 
NºTHENTS 
263 CLSTCLOSESKEVI, "COLOR" IKE 
YZ, “AUTOCSREVE, "GOTOMSKEVA, PL 
TETSKEYS, "RUN“+CNRS 13 
+ *COLORIS, 1, 1M+CHRS (13) Ki 
“ELOAD' KEYS, PCONTYIKEYS, "LIS 
T+CHR$ (13) KEVIO, "RUN" EKEVON 
FLOCATEIS, GL PRINT"FIMP END 
264 PRINT'Frossione (Ge p/ im 

any o INPUTIPESTFIP$= "SO 

S"THENRETURA 

ponda coa!!!“ 


GOTIZéM 
2e5 SFINT'Redefinicao da tec] 
asi 


267 INPUT" Quer redefinir aigu 


B JFUDS="NºTHENRETURM 
PUT Qual é tezla 11-10) 


Tê INPUT "Qual a nova funcao 
“ure 

2 KEYT,UYS 

272 INPUT alguma redetin 
icao (3/N) LOS 

273 1FUOS="NºTHENDTS 

274 GoToHO 

275 S01074 

27 NT"htencao: su p/ usta 
rios de disco “PRINT Tecle « 
5> p/ continuar ou <4) p/ vol 
tar” 

277 DT$=INKEYS; LEITA="" TREND? 
TELSEIFITE="5"THENZTRELSEIFIT 


NT;FILES:LOCATEO, 21: PRINT Des 
Eja ver direterio de outro di 
seo 

279 UL$=INKEYS: IFUL$=""TREND? 
PIFULS="5"THENZ7BELSEIFULS="N 
“THENZODELSE279 

280 607074 
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TANK ATTACK 


Uriel Agria 
Neste jogo, sua missão é im- 
pedir o avanço de tanques 
inimigos que pretendem al- 
vejar o quartel-general das 
forças aliadas. De dentro de 
seu tanque você logo perce- 
be o quanto esta tarefa será 
arriscada: os inimigos, mo- 
vendo-se ao longo da mar- 
gem oposta do rio, são mui- 
tos e não hesitarão em abrir 
fogo ao perceberem a sua 
presença. Você pre: rá de 
uma boa estratégia de ataque, 
pois sabe que a inércia inter- 
fere na trajetória dos tiros, e 
a munição é limitada. Provi- 
dencialmente, no entanto, 
um poderoso radar o auxilia- 
rá, informandoa cada movi- 
mento a posição dos tanques 
inimigos no front 

Você começa o jogo com 
5 vidas e a cada 5.000 pon- 
tos recebe uma.vida extra. 
Por outro lado, se for alveja- 
do por um tanque inimigo 
ou este alcançar o quartel-ge- 
neral, situado à esquerda no 
vídeo, você perde uma vi- 
da. A cada 15 tanques atingi- 
dos tem lugar novo estágio. 

O loop central do jogo é 
escrito em Basic, mas duas 
pequenas rotinas em lingua- 
gem de máquina se encarre- 
gam da movimentação da te- 
la. Então não perca tempo: 
Tome lugar no seu tanque, 
impeça este ataque e sinta-se 
um verdadeiro Rambo! 




















10 REM HESSAO: TANK ATTACK 
20 REM URIEL AGRIA - MSX MIERO 


o 
4 a 









O, 61439!: DEFINTA-Z: OPEN"GRES 
ND C- TIMES 4 ONINTERVAL = LSOGOSUR 


1: SCREENZ, 2: GOSUEI B60: GO 
2: BEER: COLOR, 4 

1. 1=5: EX !=5000 

UBI4 LO 


a7408 S1=0: PUTSPRITED, (X/21+1, 
0,105, io 


110 FORQ=1TOZ: GOSUR990! NEXT 





130 D=STICK(O) 1 E= sr ICK(1) 






THEN io 
170 PUTSPRITES, (X/21+10, 10), 15,10 

180 IFS1=] THENZ3O 

O TFSTRIG(C) =0ANDSTRIG (1) =0ANOSTRIGA 








.0)= (250 


ES 
q 
ag 


600: GOTOLBO 
D=USRI (0) : SX=SX-A4 =PX-7 
SOTO 170 

(=%—4: IFX<OTHENX=0: GOTOLBO 
D=USR (0): SX=8X+4: FX=FX+7 
GoTO1I7O 


FORI=1TOZ 
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= 


















360 IFX(1)-X+ST(I)<SX+4ANDSX+4<X(T)-Xx+ SÃO IFFS=OTHENS6O 

15-ST(1) THENBSO 520 Fy=FY+FRIFR=FR+1:Fi=FI-I 

370 NEXT: RETURN 530 IFFX<OORFX>255THENFS=0:FX=256:FV=1 
380 * 92 

390 FORI=1TOZ 540 IFFI=65-(HE=1) *ZTHENGOSUE67O 

400 IFD(I)=1THENIFINT(RND(1)440)=1THEN 350 PUTSPRITEZ, (FX.FY),1,F1/5 

Q=1: GOSUB990ELSES1O 560 NEXT 

410 IFHESITHEN6IO 570 GOTD120 

420 X(I)=k(1)-SV 580 IFFS=1THENRETURN 

430 IFX(I)<-67THENIZ5O 590 GOSUB11Z: =X (1) -X+4:F1l=89+( 
440 PUTSPRITE6+I, (X(1)/21+7, 13-sT(1)),  HE=1)*5:FY= (HE=1)*4 

15, 17+(HE=1) — (I=ZANDHE= 1) *2 600 RETURN 

450 LEX(I)-X<-150RX(1)-X>255THENT(D)=H 610 * 


620 IFX>X(1)THENHR=1 


E: PUTSPRITES+I. (256,192),0,20:PUTSPRIT 
630 IFX+255<X(1) THENHR= 


E13, (256, 192) ,0,20:GOTOS1O 





1 















HENIFINT(RND(1)*20)=1ANDH 640 IFX(1)-X>O0ANDX<1)-X<255AND INT (RND( 
1 1) 420) =1 THENHR=-HR 
470 IFINTCRND(L)430)=1ANDHE=OTHENT(D)= 650 X(1)=X(1)+HR%CL+5V) 
o 660 GOTO440 
480 IFT(I)=1ANDINT(RND(1)*25)=1THENGOS 670 * 
URS8O 680 FS=0: IFFX>2400RFX<1STHENFX=100:Fy= 
490 IFHE=1THENPUTSPRITES, (X(1)-X,69),1 84 
.B+(HR=-1) : PUTSPRITEIS, (X(1)-X,85),1,1 690 IFPOINT(FX.FY+7)=108NDPOINT(FX+7,F 
1:GOTOS1O V+7)=10THENFX=256:FY=192: RETURN 
S00 PUTSPRITEZ+I. (XCD) -X,70) 1, ST(1)+S 700 FX=256:Fy=192:PUTVARPTRZ, (FX.FY) O 
TED -1+TCI) 20: GOSUB1130 











pt E = 














EM ALGUNS 
SEGUNDOS, 
MAIS U 
CAMPEÃO 

DA 
TECNOLOGIA. 


Diskette para MSX Cibertron. 
De concepção avançada, com 
totalmente em português, éo 
guns segundos você tem operação completa, c 
Diskette para MSX Cibertron. Não deixe de ver e 
Veja a seguir os aplicati nto em 
diskette para MSX Cibertron. São vários títulos de grand utilidade para vo- 
cê. No trabalho, em casaie no lazer. E 


ASSEMBLY & 
DESASSEMBLY 


cnicas de programação e manuais 

jamento do programa. Em al- 

iciênciae muitafacilidade. 
reste programa. 


Assembly-Totalmente relo- 
cável, editor incluso, ma- 
cros, assemblagem condi- 
cional, extrema rapidez de 
eomeliução, Desassembly- 
Execui passo a passo, 
múltiplos pontos de inter- 
rupção, cópia inteligente. 


À / 
'CONTROLE DE ESTOQUI 
Permite processar de 
nelra eficlente umaq: 
dade Indetermi de re- 


gistros, limitados apenas 
pelacapacidade do disket- 
te. Inclui código e nome do 
produto, fornecedor, unida- 
de, quantidade, quantidade 

ínima, preço de compra, 
preço de venda e data de 
validade. 


Processador de textos. 
Ideal tanto para uso domés- 
tico quanto profissional. 
Permite o armazenamento 
de até 480 linhas. 

Inclui busca de palavras, 
movimentação de blocos, 
reformulação de parágra- 
fos, brocagem, definição de 
margens, duas páginas de 
auxílio ao usuário etc. 


Games. Em cada diskette Cibertron três jogos emocionantes, com alta resolução gráfi- 


caacores e som fantástico. 
e GOONIES 


e PITFALLII 


e E MS 


G EIBERTRON 


Caso você não encontre o programa dese. 
jado, escreva para 

Cibertron Eletrônica Ltda. - Caixa Postal 
17.005 - CEP 02399 - São Paulo - SP. 
Revendedores autorizados: AKOPOL, AU. 
DIO, BRENO ROSSI, BRUNO BLOIS, GUE: 
DES, MAGNODATA (Tel.: (011) 255-7653), 
MAPPIN, SHOP AUDIO & VÍDEO (Sto. An- 
dré), CINÓTICA, AMAROSOM, LÓGICA(For- 


e NORTH SEA HELICOPTER 
e KNIGHT MARE 
e ANIMAL WAR 


taleza), B. KAUFFMANN (Santos), MEMO- 


e THEZEUS ALPHA SQUADRON RIASÓM E VÍDEO (DF) 


e GALAGA * EXERION 














710 LINE(40,40)-(215,48),12,BF:COLORI: 
PSET (64,41), 12:PRINTHI. “VOCE FOI ATING 


IDO!" 

720 FOR, TOSO: COLOR, . 8: FORO=17040:NEX 
T:COLOR, . 1:FORQ=1TO40:NEXTO, 3 

730 LI=LI-1:GOSUB1500: IFLI=OTHENRETURN 
770 

740 BOSUB 1540 

750 LINE(40,40)-(215.48),4,BF 

760 RETURN 

770 * 

780 GOSUBILéQ 

790 SOUND7. S6:PLAY“OSDEFDEFGEFDEFDGEFD 
D 

800 LINE(24,33)-(231,63),6,BFILINE(Z6, 
35)-(229,61).1,B:COLORI:PSET(95,37),6: 
PRINTHL, "ACABOU! Ut 

B1O PSET(70,51). 6:COLOR 15:PRINTHL, 
VAMENTE (S/N)? 

820 IF SC!>HS!THENHS !=SC!; GOSUB1520 
830 FORI=1TOSO:K$=INKEV$: NEXT 

840 K$=INPUTS (1) 

850 IFK$="N"ORKS="n"THENCOLORIS, 1. 
D 

B60 IFKS="S"ORK$="s"THENHEEP: GOTO6O 
870 GoToBao - 

eso > 

890 PUTSPRITEIZ. (256, 192) ,0,20 

900 PUTSPRITEG+I, (X(1)-X-2,70) , 6, 9: PUT 
SPRITES+I, (X(1)-X,70),11,9:PUTSPRITEL, 
(XUTI=X42,69) 46,9 

910 GOSUBL13O 

920 SC!=5C!+50*ST (1) :GOSUBI 460: TA=TA+L 
LINE (255, 16) -(250-TAX6, 21) 1. BF 

30 FORT=| TOLSOG 

940 DCIy=1:x(1 
950 PUTSPRITES+I, (256.192) .0,20:PUTSPR 
ITE6+I, (256, 192) 0,20 

960 IFHE=1THENIOMO 

970 IFTA=ISTHENHE=1:0=1:GOSUB1000 

980 RETURN 

990 IFHE=1OR (TA=14AND(D(1)=O0RD(2)=0)5 
THENRETURNS1O 

1000 T(B)=0;ST (0) =RND (0) *3+1:D (0) =0 
1010 X(B) =RND(1)41100+500: LFX (0) -X>-16 
ANDX(D) -X<256 THEN 1010 

1020 IFHE=ITHENST (1) = 
o 

1030 RETURN 

1040 * 

1050 INTERVALON: FORO=1TO2000: NEXT 
1060 GOSUBI 140! 
1070 LINE(29,33)- (231,63), 1. BFILINE(26 
+ 35)- (229,61), 11, B:COLOR9:PSET (88, 37), 














No 








EN 











D(2) 





:X(2)=300 











FPRINTHI. "VOCE GANHOU! ": COLORIZ: PRINT 
mr PRESS. UMA TECLA PARA": COLOR 
DIPRINTAI COMECAR OUTRO ESTAGIO 


1080 LINE(BO,160)-(179,168),6, EF: COLOR 
PSET (B7, 161), 6:PRINTHI, "BONUS: 
ORI: PRINTHI  SVAZ000: SC !=SC ! +SVX2000 
1090 SV=2: BOSUB1 460 

1100 FORI=ITOSO:K$=INKEV$: NEXT 

AO K$=INKEVS: IFK$=""THENLILO 

1120 INTERVALOFF: BEER: RETURNTZO 

1130 * 

1140 SQUNDO, O: SOUNDI 5: SQUNDZ, O: SOUNDS 
+ 132 SOUINDA . 255: SOUNDS. 15: SOUNDA, 307 80U 
ND7, 0: SOUNDS, 167 SOUNDS, 16; SOUNDIO, 1675 
OUNDI 1, 0; SOUNDI 2,5: SOUNDI3, O: SOUNDIZ,S 
& 

1150 RETURN 

1160 FORJ=0TOL3:PUTSPRITES, (256.192) .0 
- 20: NEXTE RETURN 

1170 * 

1180 LINE(O.79)-(255,79), LAFLINE (O, 80) 
—(255, 180), 10,BF 

1190 PRESET (0,71): FORI=0TOZ5SSTEPS:LIN 
E-(T+4. 6B+RND (1) 610), 19;LINE-(148, 6B+R 
ND (1) 410), 14; NEXT; PAINT (0,78), 14 





























1200 GOSUB1230 

1210 DRANW"bm4O, LBOCIZM6O, 15SM70. 150mi7 

O. 150M200, 15Sm220, 1801180bmi 22. 149cimi 

25,126r 10M138, 1491 16": PAINT (45,179) «12 

2 PAINT (125, 148). 1:CIRCLE(130,172),15,1 

«22» 4:PAINT(130, 176). 1:CIRCLE(130, 180) 

+31, 1,,3. 16,.7:FUTSPRITEO, (125,71),1,0 

1Z20 A=USRS(O) : RETURN 

1230 PRESET (0, 106) :FORJ=0TO2SSSTEP24:L 

INE-(1+28, 109+RND (1) 4) 5: NEXT 

1240 PRESET (0,116) :FORJ=0TOZSSSTEP2A:L 

INE-(3+24, 114+RND(1)%4) , 5:NEXTIPAINT (O 

+ 107) 5: RETURN 

1250 * 

1250 SOUND7. S4:FLAV"ostdgefdgetfdger+ 

1270 LINE(23,40)-(231,48),12, BFICOLORI 

2 PSET (25.41), 12:PRINTHI.“O TANQUE ATIN 

GIU O QUARTEL" 

1280 FORJ=1T09999:NEXT 

1290 SCREENZ: A=USR2 (0): GOSUBI410 

1300 LINE (O. 80) - (255, 180),10, BFILINE (7 

8.79)-(255,79) 14 

1310 PRESET (79,79) :FORJ=79TOZ5SSTEPBIL 

INE-(1+4, 6B+RND (1) 410). L47LINE-(J+8, 68 

+RND(1)410), 14: NEXT: PAINT (100,78), 14:6 

OSUB1230 

1320 LINE(32,82)-(55.72),15,BFILINE(IS 

« 74) (37,76), 1. BFILINE(S2,74)-(/2,76) + 

1. BFILINE (42,82)-(45,74), 1, BF 

1330 DRAW" cóbMIO, 7285r 165126": PAINT(S 

5.71). 6: A=USRS(O) 

1340 FORJ=255TO! 30STEP- 

+70), 1, ST(D+ST(T) 

3 

1350 GOSUB1130;FORJ=122TOSSSTEF-1 :PUTS 

PRITEL, (J,71),1,17:FORQ=1TOLO:NEXTO. J 

1360 GOSUB1 130; FUTSPRITEL, (28,69) ,6,9: 

PUTSPRITEZ, (36.71) .6.9:PUTSPRITES, (41, 

68) .6.9:FORJ=1TO3000: NEXT 

1370 LINE(16,40)-(239,56),12,BFIPSET(3 

6.91), 12:COLORI:PRINTHS "O QUARTEL FOI 

DESTRUIDO E VOCÊ PERDEU UMA 

VIDA" 

1380 SOUNDZ. S6:PLAY'o4fedfedadteag" 

1390 LI=LI-1:BOSUB1500:FORJ=1 709999: NE 

XT: IFLI=OTHENZ90 

1900 A=USRZ (0): GOSUBI 160:LINE (0,33) -(2 

55,180), 4. BF:BOSUB1170: A=USR3 (0): GOTOL 

oa 

1810 

1920 SCREENZ: ASUSRZ (0): COLORISZ LINE (O, 

0)-(255, 32), 1, BFILINE(O, 181)-(255,191) 

11. BF 

1430 PSET(31,0),1:PRINTH 

E(7,10)-(105,%0). 15,B: DROW'"CLSbmiS,28U 

2dirBoutdZ" 

1440 PSET(111,0),17PRINTHI, “MUNT: “7 GOES 

UBIS40:PSET (111.15). 12PRINTHI, "TANKO 

: GOSUBL 550 

1450 PSET(3.183), 1:PRINTHI, "PONTOS 
VIDAS — MAX": GOSUBI 440; GBOSUB1500: 6 

OSUB1520: RETURN 

1460 A$="000000": B$=STR$ (SC!) :Q=LENCES 

)=1:MIDE (AS. 7-0,0)=RIGHTE (B$,0) 

1470 LINE CIOS-DKB. 183) (103.191), 1,BF3 

PSET(SS. 183). L:PRINTHI st 

1480 1FSC! >=EX! THENEX!=EX!+5000:L = 14 

1:G0SUR1500 

1490 RETURN 

1500 COLORIS:LINE (159, 183) -(168,191),1 

« BFIPSET (151, 185). 17PRINTHI.LI 

1510 RETURN 

= "0000 TRECHS! 

ID$ (A$,7-0,0) =RIGHTE (R$. 0) 

1530 LINE(255-0*8, 183)-(255,191),1.B 

PSET(207, 185). 1: PRINTHI, AS:RETURN 
s =) *STE 














3 PUTSFRITEO, (9 
ORQ=1 7040: NEXTO, 
















































E 












DRA 
“c7bm=;:.21r2elhilZoibr2usi2rsdivNEXT 
2 RETURN 
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1560 
1570 J=0: INTERVALON: GOSUB1800 

1580 A=USR2 (0): SCREENZ:LINE(O,0)-(255. 
36). 4, BF 

1590 DRAW"cIbmS, belr 18fid3gilégid20a11 
2h1U20h1] 6h1UIbM3O, 6elr 18f1d25g112hiui 
Oh111091diOgil2h1U25bm34, IOelr1Ofid5al 
110hius" 

1600 DRAW"bmSS, Selr 2% 1d4fI2ulóeir2f1dZ 
Sg112h1u4h12d169112h1UZSbmB0, beir2F1idi 
OellfZgl1F1Og3hLOd9g112hIuZ5" 

1610 DRAW"CISbmiIO, belr 18f1d25g112hiut 
Oh1110g1d10g112h1U2Sbmi14, 1Oeir1Ofid5g 
1110h1USbmi35, 6elr 1Bf1d3gllégid209112h 
1uZ0h1 1 6h1UZbmido, belr 1BfId3gilégidzoa 
112h1U2Z0h1] 6h ilus" 

1620 DRAW"bmies, betr 1Bf1dZ5g112h1utoht 
110g1d109112h1u2ZSbmiB?, 1Oelr1OfIdSgil1 
OhtuSbm210, be ir LBFId79112htu3hil1IOgid1 
7firiOeluZelr2fIdégil 1Bh1UZSbmZ3S, delr 
2f1dlOet1fIg11f1Og3hIOd9g11ZhiuZs" 
1630 FORI=7TOBZSTEP25:PAINT(I,6). 1:NEX 
TEFORI=11270237STEP25:PAINT(1,6),15:NE 
XT 

1640 DRAW"BMLOO, 43" 40431 203" 30USr SuSr 
10u21 10U21 10d21 245r 2uSbr4bdIir3b17dér4d 
Sr L0d3Sr BOd201 2000101 10830r 1101 40U13m7 
+ 73U10mi00, 75u12bm45, 123r1B5bm238, 139m 
217, 157bm70, 160r 140bm37, 140m64, 1SBbmliZ 
O, 111U7r2f1d3rSu4r 544941 5u41Sd3g1il2" 
1650 CIRCLE(45, 133), 10:CIRCLE(4S, 133), 
SICIRCLE (230, 135), 10:CIRCLE(230, 133),3 
FFORI=70T0210STEP20:CIRCLE(I,153),7:CI 
RCLE (1,153), 2:NEXT;FORI=80TOZLOSTEP3O: 
CIRCLE(I.127),3:PSET(I,127): NEXT 

1660 COLORIZ:PRESET (47,40) :PRINTHI, "MS 
X MICRO & URIEL AGRIA” 

1670 COLORB:PRESET (71,183): PRINTA, "IN 
STRUCDES S/N)?" 

1480 FORI=1TOS 














INKEYS: NEXT 













1690 K$=INKEY$: IFK$=""THENI 690 
1700 IFK$="S"ORK$="S"THENI73O 
1710 IFK$="N"DRK$="n"THENRETURN 


1720 G0TO1690 
1730 INTERVALOFF: BEEP: CLS: RESTORE2100 
1740 DRAW"bmSS. Or 144951 134hSd3Or 144U3O 
a5d20$5h51 13495eSuZO": COLORS: PRESET (83 
+12): PRINTHA, “TANK ATTACK": COLORIS: PUT 
SPRITEO, (20,8) ,5,8:PUTSPRITEI, (219,8), 
5,7 

1750 FORI=35T0172STEP9:READAS 

1760 PRESET(7, 1) :PRINTHL. AS:NEXT 

1770 COLOR7: PRESET (70, 183): PRINTHI, "PR 
ESS. UMA TECLA 

1780 FORI=1TOSO:K$=INKEV$: NEXT 

1790 K8=INPUTS(1) RETURN 

1800 * 

1810 J=J+1: IFJ>4THENI=4: RETURN 

1820 Ag="cc.alba.albadacc.alba.albb-r8 
ag. flbe. flbg.aléb-,oSdibd.cléçodboSc. o 
Ab-lba.albadf4F. F16f.elbdab-4b-4r Bosdd 
«clócec,o4b-Ibb-egf frfra” 

1830 SOUND7, 56: BE=MIDS (AS, (J-1)432+1.3 
2, 

1840 PLAY"mSO0OS11 
1850 RETURN 

1860 * 

1870 RESTOREL920:FORSC!=61940! TD6 1569! 
3READI:POKESC! 1: NEXT: DEFUSR=61442!:DE 
FUSRI=61493!; DEFUSR2=65: DEFUSRI=68 
1880 FORI=14236TO14714 

1890 READAS:VPOKEI. VAL ("Lh"+AS): NEXT 
1900 FORT=14752701 4080STEP32:FORJ=0TO7 
3 READAS: VPOKE T+. VAL ("Eh 48) NEXTI. T 
1910 RETURN 

1920 DATA9.7.38,240. 
«71,126, 46, 223,28, 
197,6,31,14,15 os, 
101,240,35,205.114.240,43 








e 




















1126, 128 


253 







1930 DATAL6, 245, 123.205,114,240,43,21, 

175, 186, 32,227,201 

1940 DATAIS. 240,46,0,70,35,126,46,224, 

38,25,17;32,0,25,16,253,87,6,31,14,153 

+ 205, 101.240,95, 35,205, 101,240,43,205, 

114,240.35 

1950 DATAIS, 245, 123,205,114,240,35,21, 

175, 186, 32,227,201,243,237,105,237,97, 

13,0,0,237,120, 12,251,201 

1960 DATAZAS, 237, 105,8, 124,246, 64,237, 

121,8,13,237,121,12,251,201 

1970 DATÃO1,01,01,01,01,01,0,fc,F0,0,0 

1,01,01.01,01,01,80,80,80, BO, 80,80<0,3 

f.,3f,0,80,80,80, 80, 80,80 

1980 DATAO,0,0,07, 14, 84,07,78 FF, FE.BO 

«7f, 80, ed, 4d, 3f,0,0,0,80,80,80,e0, fe, £ 

+, ff, 01, fe, 07.b7,b2, fe 

1990 DATAO1,01,01,07,06,06,07,74, 4%, Ef 

+80,7f.e0, ed, 4d, 3f 80, BO, BO, 20, 60,60,e 

O, fe, ff, Ff,01, fe, 07,b7,b2, fe 

2000 DATAO,0,0,0,03,3%,0%, 1$,3f,20,1F, 

30,15,0€,0,0,0,0,0,0,80,€0,0, fc, fe, 02 

+$C,06,54,18,0,0 

2010 DATAO,0,0,0,05,03,03,14,34,20,1f, 

30,15,0%,0,0,0,0,80,80,60, 60,60, fe, fe, 

02,fc,06,54,48,0,0 

2020 DATAO,0,0,0,0,07,01,07,0%,07,0d,0 
«0,0,0,0,0,0,0,00,C0,f0, FB, £0,58, 

0,0,0 

2030 DATAO,0,0,0,0,01,01,07,0F,07,04,0 

7,9,0,0,0,0,0,0,0,80,40,00,%0,+8, f0,58 

1£0,0,0,0,0 

2040 DATAO. 74,02,07,34,47,C7, FE fts 7Es 

34,12,92,74,0,0,0,%0,0,81,C3,ff,e0,c0, 

€0,80,0,0,0,80,0,0 

2050 DATAO, 0f,0,81,C%,Ff.07,03,03,01,0 

10,0,01,0,0,0,fe,40,00. fc 02,65, Ff, ff 

fe. fc, 48,49. $e,0,0 

2060 DATAO,02,02,40,24,07,4f, 1d, 2f,0fy 

7%.08,04,02.0.0,0,20,02, 84,88, f0,f4,£0 

«FO, de, f2,28,24,22,0,0 

2070 DATABO, BO, 80,80, 80, 80,80, 80, 80,80 

+80,80,81,81.87.87,02,02,02,02,02,02,0 

2,02,02,02,02,02,02.02,c2.C2 

2080 DATAO, 0,0,0,0,07,3F, Ff, Ff, 31,07,0 

+0,0,0,0,0,0,0,0,0,00,fc, ff, Ff. fc, 20 

2090 DATALB, Sc, 70, ff, ff, 7e, 30, 18,0,18, 

3c, 78,78, 3c,18,0,0,0,18,30,3C,18,0,0,0 

10,0,18,18,0,0,0,0,0,0,0,08,0,0,0 

2100 DATA"Neste jogo você tem que cont 

Pet 

2110 DATA"lar um tanque. impedindo o av 

an> 


Z120 DATA"cO dos inimigos que tentarao 





























2130 DATA"destruir seu quartel general 


2140 DATA"Fodendo mover seu tanque ate: 


2150 DATAtos limites do campo de acao. 


2160 DATA"e ainda se quiar pelo radar 
E 

2170 DATA"observar inimigos. sendo o to 
tal” 

2180 DATA"de 15 Lanques e um 
ero," 

2190 DATA"para poder passar para 0 pro 
ne 

el” 

2210 DATA"a esquerda, Voce morrera se 
um" 

2220 DATA"tiro acerta-lo.ou se um tang 
ue" 


helicopt 





9 DATA 





tagio. estando o seu quart 





DATA"chegar ao seu quartel mar vo 
ce” 
2240 DAY 
da” 
2250 DATA"S000 pontos. " 





“recebera uma vida extra a ca 
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PROGRAMAS 


DRAW EDITOR 


O BASIC MSX possui um re- 
curso muito interessante pa- 
ra criar desenhos nas telas 
gráfi SCREEN 2 e 
SCREEN 3, que é muito pou- 
co utilizado pelos usuários 
do sistema. Trata-se da Ma- 
cro-linguagem gráfica re: 
dente no próprio interpreta- 
dor BASIC, que mediante 
uma série de comandos es- 
peciais permite a criação de 
gráficos sofisticados de uma 
maneira muito natural, tal 
qual estivé os desenhan- 
is de cor na tela 
do nosso micro, 

Na realidade, esta ma- 
cro-linguagem possui apenas 
um comando, o comando 
DRAW, cuja sintaxe é descri- 
ta abaixo: 

DRAW string 

Esta string poderá ser 
uma constante ou uma variá- 
vel alfanumérica, e o seu 
conteúdo deve ser compos- 
to de um conjunto de or- 
dens especiais, denominadas 





a 





















subcomandos. Estes estão 
listados no manual de qual- 
quer MSX, e como exemplo, 
veja o comando abaixo: 
DRAW “ULORIODIOLIO” 

Observe que ele seria res- 
ponsável pelo desenho de 
um quadrado de lado 10 na 
tela. Quem especificaria este 
desenho seriam os coman- 
dos UIO (UP 10 ), RIO 
(RIGTH 10), DIO (DOWN 10) 
e LIO (LEFT 10). Observe 
que este sistema lembra mui- 
toa linguagem LOGO, onde 
comandos desta linguagem 
produzem o movimento na- 
tural de uma “tartaruga” pe- 
la tela, 

Obviamente que, para de- 
senhar um quadrado é bem 
mais simples utilizar o co- 
mando LINE. Entretanto, 
quando muitas retas formam 
o desenho, é de extrema 
simplicidade a utiização dos 
subcomandos do DRAW, ao 
passo que a utilização do LI- 
NE se torna praticamente 
proibitiva. 


O objetivo deste artigo é 
facilitar ainda mais as coisas, 
Com o utilitário apresentado 
será possível construir o de- 
senho diretamente na tela, 
bastando para isto, dar os 
subcomandos necessários. 
Após estar montada a figura, 
rotinas do utilitário permiti- 
rão a observação de todos os 
subcomandos utilizados, e 
até mesmo imprimi-los nu- 
ma impressora, Desta forma, 
teremos à disposição, todos 
os subcomandos necessá- 
rios à geração do nosso de- 
senho, bastando então colo- 
cá-los dentro de um coman- 
do DRAW numa linha BA- 
SIC. 


Digitação 

O programa utilitário está to- 
talmente escrito em lingua- 
gem BASIC, desta forma, sua 
digitação não apresenta 
maiores dificuldades. Após 
terminar, digite CSAVE 


“DRAW”. Após efetuar esta 
operação, digite, CLOAD? 
“DRAW” para conferir. Se a 
mensagem OK aparecer na 
tela, então tudo estará pron- 
to para ser utilizado. Pressio- 
ne F5. A partir daí será apre- 
sentado o menu na tela, 


O Utilitário DRAW 
O menu apresenta 4 opções, 
como pode ser visto abaixo; 


[FI] Desenha 

[F2] Elimina comandos 
[F3] Lista comandos 
[E4] Imprime comandos 


A partir deste, poderemos 
acessar uma das quatro roti- 
nas operacionais do sistema. 
Estas podem ser acionadas 
pelo pressionar das teclas de 
função. Vamos analisar ago- 
ra cada uma delas: 


[F1] Desenha 

Pressionando Fl teremos 
acesso à principal rotina, que 
nos permitirá a criação dos 





MONEPOR RGB a cores 
Para toda linha IBY e Mó X. 


Sistema inedito em monitores, 100% NACIONAL! Um custo bem convidativo, um otimo desempenho. 


Maiores Informações: | [T eletronica 


TEL.(011)276-1155 ou Cx. POSTAL 42757 CEP 04299 são Paulo-SP 
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nossos desenhos. Ao ser 
acionada a rotina, imediata- 
mente a tela será colocada 
em SCREEN 2 e, no canto 
inferior esquerdo, um pe- 
queno retângulo amarelo, 
onde serão digitados, um a 
um, ossubcomandos/deseja- 
dos. No centro da tela, na 
posição 128,96 será coloca- 
da uma seta, que indica a po- 
sição do cursor. Esta seta 
constantemente muda de 
posição, a medida que os 
subcomandos vão sendo 
executados. Cada vez que 
soar um beep, será sinal de 
que o utilitário estará pronto 
para receber um subcoman- 
do. Os subcomandos devem 
ser digitados da mesma for- 
ma que se escreve quando 
os inserimos num comando 
DRAW numa linha BASIC, 




































































Por exemplos ulO, rlO, sá, 
cá, nilO, etc. A medida que 
estes vão sendo introduzi- 
dos, a figura vai interativa- 
mente se formando. Caso 
você digite alguma coisa e 
queira que ela seja apagada, 
antes de pressionar RE- 
TURN, pressione a tecla DE- 
LETE. Todo o subcomando 
que estava sendo digitado se- 
rá apagado e você poderá 
novamente digitar o que de- 
seja. Se você digitou algo in- 
compatível com a sintaxe 
dos subcomandos, aparece- 
rá uma interrogação e um si- 
nal sonoro lhe indicando 
que o que você digitou é er- 
rado. Como exemplo, digite 
kle pressione RETURN. Tu- 
do que você digitar errado 


































não será armazenado. Para 
regressar ao menu, digite 
CTRL STOP. 


[F2]Elimina comandos 
Suponha que você digitou 
algum subcomando correta- 
mente, porém agora você 
deseja eliminá-lo, pois isto 
não é bem o que você que- 
ria. Para isto, pressione F2. 
Após isto acione a barra de 
espaço para eliminar o últi- 
mo comando dado, e após 
este, caso deseje, um a um, 
até chegar a eliminar todos 
os comandos. A qualquer 
instante, para retornar ao me- 
nu, pressione RETURN 








[F3] Lista comandos 

Esta é a razão de ser do utili- 
tário. Pressionando F3 você 
terá na tela todos os subco- 



























mandos que formam a figu- 
ra da tela, em ordem sequen- 
cial. Estes subcomandos co- 
locados dentro de um 
DRAW produzirão no seú 
programa a figura que você 
vê na tela, 


[F4] Imprime comandos 
Faz o mesmo que o anterior, 
só que numa impressora. 
Experimente então criar 
desenhos, obter as listagens 
dos subcomandos e execu- 
tá-los dentro dos seus pro- 
gramas através do comando 
DRAW. Você verá que com 
este utilitário a criação das fi 
guras ficará muito simplifica 
da, permitindo inclusive que 
se guarde as mais interessan- 
tes com as saídas impressas, 
- 















































JOGOS SÉRIE PRATA CZ$ 100,00 LANÇAMENTOS Cz$ 130,00 vs. 
0146 30 BOMBERMAN 3101 FLAPPY STONES 0158 OM! MUMMY 0043 XADREZ 0248 DEMON CRISTAL 0259 FORMATION Z APLICATIVOS 
0129 90 KNOCK OUT Oq4ê FLIPER SLIPER O812 OM! SHIT ONT XYZOLOO. 0249 MOSQUITON ATTACK 0260 COSMO EXPLORER FD AGENDA DOM 18000 
0068 ANIMAL WARZ 0066 FLYTER 0056 OLIMPIADAS 1 0020 VIE AR KUNG FUI | 0250 PINE APLLE 0261 TOWER OF DRUAGA O BANCO DE DADOS 18000 
0006 ANTARTIO ADVENTURE 0185 FOOTVOLLEY 005? OLIMPIADAS 1 DIS ZAMKONI 251 PIPPOLS 028 MUTANT MONTY O CONTA BANCARIA 300,00 
ONT ATLETIC LAND 0024 FROGGER 0132 PACMAN 0016 ZAXXON 0252 CLUEDO 0263 DUNGEON MASTER /D CONTAS PAGIREC 200,00 
0929 BACK TO THE FUTURE 0080 FRUIT SEARCH 0002 PADEIRO MALUCO OJBIZEXAS 0283 ARKANOID. 0284 BOUNDER, FID CONTR ESTOQUE 180,00 
ON18 BANK PANIC 0066 FUNCKY MOUSE 0060 PASTIFINDER 0077 200M 909 0254 ARMY MOVES 0268 PANTERA COR DE ROSA FID MALA DIRETA “8000 
Ora BASEBALL 0058 FUTEBLCI REPLAY 0208 PILL BOX 007 NORSEMAN 0258 TACTION 0266 SUPER TENNIS FID UNIWORD 20900 
OI6o BATTLE CROSS 0016 F-16 COMBAT 0026 PING PONG 0012 WAR MED 0256 VAMPIRE 0267 MACÃOSS FIGTER FIT UNITEXT 18900 
0175 BEAM RIDER 0166 GRAND PRIX WORD 0087 PITFALL | 0239 WELLINGS BELLS | 0257 GROG'S QUEST |! 0268 CANDOO FID CONT DOMÉSTICA 200,00 
0088 BILHAR ONOGALLAGA 0140 PITFALL IL 0258 ANIMAL BASKET 0269 SLINKEY FD AGENDA ANUAL 180,00 
0003 BINARY LAND 0183 GANG MAN 000! POLAR STAR FIO PLANILHA 18000 
0708 BLAGER aNg7 GINKO GOTO D$73 POGYAN UTILITÁRIOS 
0125 BLOCKED RUNNER 0062 GIAL'S RATS 0141 PRÉDIO ASSOMBRADO JOGOS SÉRIE OURO CZ$ 120,00 FID ED MUSK 200,00 
ou BOARDÉILO om Gude maca 9210 PROFISSÃO PERIGO E AAA 25000 
0179 BOKOSUKA WAR y 0163 PUNCHY. 0240 10 YEARD RAM = 
0184 BOOGABOO 0105 GUNFRIGHT OMS PIRAMIDE WARP DIOS AVINTOANILL CAS ITERDAT KARATE! PIRES FID ORGÃO ELETA 200,90 
0096 BOSCONIAN 0059 HAPPY FRET CORO RIVER RAIO, Da ADA NÓ NARINTEANAT, KAATRIO, DIR SC FID EDDY2 GRAF 2s000 
0106 BOUDER DASH 0052 HANTED BOY DDS NONE PISRTER aaa SEIT ANGRA Fine FIDGRAFIC ARTIST 260/00 
0008 BRIDGE 0018 "HERO 0206 ROCK'S BOLT 0233 AMERICAN TRUCK 0121 JUMP JET 168 SPEEO KING FID PENCIE DESING 20000 
0072 BUCK ROGERS 0086 HOLE IN ONE 0049 ROLLERBALL 0180 AVENGER Gta KALEIDOSCOPE ESP. 0178 SPITIFIRE 40 FO UNA Roo0o 
0067 BUTAMARU 0162 HOLE INONE PRO D8 SSAMANTA FOX Epa Seja KALHIGCaGOE dra O MASTER VOICE 20000 
rr BUSÓRE doa MUNCH BACK IM SAMA 127 BATMAN ODAS RAMT MARE 6221 STAR SOLDIER FO SIMPLE Assis s2000 
007 GANNON FIGHTER. 0019 HYPPER RALLY 0091 SIMULADOR VÔO 737! | 0063 BOXE 0190 KNIGHT TYME 0150 STONE OF WISDOM dO Bose ral 
OND CAPLE 0012 HYPPER SPORT | 0219 SPACE BUSTER 0241 CAMELOT WARIORS 0245 KOMANI'S GOLF 0188 “STRIP POKER o BOCEVA DITO) Es) 
DI4I CAT ADVENTURE 0029 HYPPER SPORTI 0075 SPACE TROBLER OMSCHESSI XADREZ co70 KUNG FUMASTER 0231 SUPER BOWL Precio! ra 
0097 CHAMPION HORSE 007! HYPPER SPORT Or? SPARTAX Qua CHOPTUIET qo CU UE RO rue GER | ED BASIC! 18000 
0104 CHILLER! Soso JUMPING NABBIT 0098 SPELUNKER 0225 CIBERIUM 0389 "MAC ATTACK 0220 THE CASTLE 1 EO ARO 180,00 
0051 CHOCK IN POP ura RARIU GAUTER 0045 SQUADRON ALFA 0185 DAM BUSTER 0212 MACADAN BUMPER 0224 THE CASTLE |l EXCEL O BAgaC 150,00 
0088 CHOROO ON42 KEYSTONE KAPPERS O181 STAR SHIP SIMULATOR] 0230 DANGERXA DOD6 MAGICAL KIFWIZZ 0200 THE MEIST BNOURAMAS EM CRM 
0028 CIRCUS CHARLY 0066 KINASAI ESPE panaRn da BOSO MAGICAL O AGENDA Togo 
0022 COLUMBIA (SKY JAGUAR] DOIOKINGS VALLEY g122 STOP THE SPRESS Eooy O MSTION qu8s THEIR CONTABILIDADE 100000 
DO79 CONDORMAN LISA ELIDON 0083 NIGHT SHADE 0201 TIME BANDIT TAB dra 190000 
0100 CONGO BONGO DSI LE MANS 1 dores supAROBO 0244 FEUD (MELLOWIN) 0247 NINJA 0218 TIME CURE lido recta 
diga COPA DO MUNDO 0033 MOOM PATRGO 0023 SUPER BILHAR 0236 FINDERS KAPERS 0040 NORTH SEA HÉLICOP. 8192 TIME TRAX EAD Na add 
UU 0120 FLIGHT DECK. 7 LAT TRAIL BLAZER 
d06a COSMO TRAVELLER 0199 MACACO ACADÉMICO 0169 SUPER SOCCER 0107 FOOTBALA THE YEAR ORtT PUBRLE OVd6 ULTRA CHESS — xaprez] pag PACOTE ESPECIAL FD 
DIS CRAZY TRAIN 0172 MASTER OF LAMPS 0177 SWEETACORN DIO FUTURE KNIGHT Dog RAID ON & BAY 0228 UNAS'S LAIR PREÇO JÁ INCLUSO DISQUETE 
0216 DART MASTER 0098 MÁXIMA 003 TENNIS OMBGALAXIA 0208 RED MOON 0213 VERA CRUZ Cr$ 2:500,00 
0036 DECATHLON DIGO MAYEN 0014 THE GOONIES 0073GHOSTBUSTERS 0152 REGATA DIOGVIDEO POKER 
Ora DEFENDER FOX 0151 MAZAC. ON2 THE WRECKI 0144 GREEN BERET 0238 RETURNTO EDEN 0000 WARROIO AGENDA-CONT. PGIREC—MALA 
COBa DOG PLIGNTER, 0011 MOS 0021 THESEUS 0222 QUARDIAC Ooãa VIE AR KUNG FU DIRETA-CONTR ESTOQUE-DATA 
0211 DRAGON ATTACK Ot84 MOLECULEMAN 0157 THUNDERBALL 0195 GYRONDINE 0229 ZAKIL WOOD BANK PLANILHA SIMPLE UNI 
0116 EDDIE KID O178 MOLE MOLE 0126 TIME PILOT Ooas HEAVY BOXE 0191 ZANAC TEXT-CONT DOMÉSTICO 
0008 ELEPHANT MAPPY 0065 MOPIRANGER 0005 TRICK BOY DUPLIGAGOR-ED. MUSIC MASTER 
0009 ELEVATOR ACTION 0081 MR. CHIN 0058 TURBOART —| VOICE-EDDY2  GRAFC —STUDY 
a) Cor Sola So83 TWIN BEE G7—BASICI—BASIC BASIC 
Ora EXXERION 1 SO67 NINJA QUALIDADE COM ECONOMIA PROMOÇÃO VÁLIDA PARA 
Ô154 FISCAL DE ESTOQUE CORSO NINA 1 
OUTINOV 87. 
COMO ADQUIRIR NOSSOS PROGRAMAS: Er CONTATOS TELEFÔNICOS LIGUE (011) 825:5240 NO HORÁRIO DAS 10:00 ÀS 13:00 E DAS 
1500 ÀS 1 26? 
— ENVIE-NOS UMA CARTA COM SEU NOME E ENDEREÇO LEGÍVEIS E EQUIPAMENTO INDICAN- — NO CASO DE OPTAREM PELA VERSÃO DISQUETE, ACRESCENTAR CZ$ 200,00 PARA CADA 06 





DO O CÓDIGO E O NOME DOS PROGRAMAS DE SEU INTERESSE. ANEXANDO CHEQUE NOMI 
NALE CRUZADO PARA JCS INFORMÁTICA E COMÉRCIO LTDA. — CAIXA POSTAL 1878 — CEP 01051 SÃO PAULO 
— SP OU VALE POSTAL PAGÁVEL NA AGÊNCIA CENTRO CÓDIGO 400.008. 

— PRAZO DE ATENDIMENTO: PARA DISQUETE — 10 DIAS E PARA CASSETE 30 DIAS 

— GARANTIMOS A REPOSIÇÃO CASO OCORRA ALGUM PROBLEMA COM NOSSO PRODUTO NO 


PRAZO DE 30 DIAS. 


PROGRAMAS 


— PEDIDO MÍNIMO CZ$ 600,00. ATENDEMOS A TODO TERRITÓRIO NACIONAL E NÃO COBRAMOS. 


TAXAS DE REMESSA 


— CREDENCIAMOS DISTRIBUIDORES E REPRESENTANTES EM TODO BRASIL. 
— TODOS NOSSOS PROGRAMAS CONSTAM EM DISQUETES E CASSETES, SALVO OS PROG. QUE 
CONSTAM COM“ “SÓ PARA DISQUETES, PROG. QUE CONTAM COM "*" NÃO COMPATÍVEIS COM 


HOFBIT. 
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10 
20 DRAW EDITOR 
302 JALF SOFTWARE 
40 1987 p 
so *"2º sossssssssa 
bo É 
70 * Tela 
Bo posassos 
90 CLEAR 9000:DEFINT A-Z 
100 ON STOP GOSUR 1160 
110 STOF ON 
120 ON ERROR GOTO 1210 
130 OPEN “grp:" FOR OUTPUT AS&1 
140 DIM C$(1000):PM=1:FOR T=1 TO L0:KE 
Y Te""iNEXT 
150 SCREEN O 
160 ON KEY GOSUE 330,640, 800.970 
7 REY (1) ONZKEY (2) ON 
Y (3) ONIKEY (4) ON 
200 KEY OFF:COLOR 15,4 WIDTH 40:CLS 
210 PRINT STRINGS (40, ) 
PRINT SPC(14); "DRAW EDITOR" 
280 PRINT STRINGS (40, "=" 
240 LOCATE 10, 10:PRINT "LF1] Desenha" 
250 BEER 
260 LOCATE 10, 12:PRINT "CF2) Elimina 
comandos" 
270 BEEP 
280 LOCATE 10,14:PRINT “CF3] Lista co 
mandos" 
290 BEER 
300 LOCATE 10, 16:PRINT "LF4] Imprime 
comandos" 
Bit 
GoTO 320 


pozsrsasans 


* Desenha 


soros >" 


REY CLIaDER: KEY (2) RF 

KEY (3) OFF:IKEY (4) OFF 

BEER 

SCREEN 2:COLOR 15,4:CLS 

) TC=128: TL=96: TR=15 

DRAW "bm=tc;,=tlic=trs" 

IF PM=1 THEN 470 

FOR C=1 TO PM-1 

DRAW C&(C) 

NEXT 

TC=FEEK (&HFCEZ) à TL=PEEK (&HFCE9) E TR 
=PEEK (&HF3F2) 
470 SPRITES (0) =CHR$ (240) +CHR$ (192) +CHR 
$(160) +CHR$ (144) +CHR$ (8) +CHRS (4) 
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sseeeeeeoeoeeeoeeoeeoeoeoseoossscccctttt tu 





480 
490 
feté ia) 
so 
320 
30 
40 
350 
Sé 
E70 
380 
590 
400 
10 
620 


BEEP:LINE (9,170)-(75, 185), 10, BF 
M$="":C=18:COLOR 1 

PUT SPRITE O, (TC, TL), 15 

PSET (0,174), 10:08=INPUTS (1) 

IF Q$=CHR$ (127) THEN 480 

IF O$=CHR$ (13) THEN 570 

M$=M$+0$: IFLEN(M$) >8 THEN 570 
PRINT 41, 08:C=0+5 

Goto s1o 

CS (PI) =ME 

PM=PM+L 

DRAW "bm=TC4,=TLIC=TRS! 

DRAW “C=TR$" 

DROW M$ 

TC=PEEK (&HFCR7) : TL=PEEK (&HECR9) 3 TR 


=PEEK (&HFS3F 2) 


430 
640 
650 
860 
670 
680 
690 
700 
710 


GOTO 480 


Dossssssrsnmasas sr 

* Elimina comandos * 
aomssnsasananaaa nara 

KEY (1) OFFIKEY (2) OFF 

KEY €3) OFFIKEY (4) OFF 

EEEP 

CLS 

PRINT TAR(7): "RETURN para voltar a 


o menu"! 


720 


PRINT TAR(7)5 "ESPACO para eliminar 


comando" 


730 
740 


PRINTIPRINT 
IF PM=1 THEN LOCATE 13,.9;:PRINT e 


ro comandos! “:FOR T=1 TO 3000:MEXT Ti6 


oTO 
730 
760 
770 


asa 


130 

PRINT TABCIO) GEM-15"= "5C$(EM-1) 
Y$ IF Ag="" THEN 760 
HR$ (13) THEN RETURN 150 

IF Ag=" " AND PM>1 THEN PM=PM-1:BE 


GoTO 75 


* Lista comandos ” 
azonoranao nana asa 

KEY (1) OFFIKEY (2) OFF 

KEY (3) OFFIKEY (4) OFF 

REEF 

CLS 

PRINT TAR(9); "Listagem de comandos 


FRINT: PRINT 
IF FM=1 THEN LOCATE 13. 9:PRINT "Ze 


ro comandos! "FOR T=1 TO 3000:NEXT:GOT 
O tão 
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O FOR C=1 TO FM-1 


910 PRINT TAR(1LO)SCa!=— "ICAC 





970 
980 

990 

1000 
1010 
1020 
1030 
1040 








no 
1070 
1080 


1090 
1 ) 
itio 







1140 


1240 
: SOUND 8,13 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
30 



































Bjs C+dato MECECC+I)STARCSS 
$(C+2) 





920 BEEPINEXT 
SO PRINT:PRINT 
240 PRINT TOR(5)s"Pressione qualquer t 
ecla!" 
950 IF INKEY$="" THEN 950 
960 GOTO 160 


DDD PDaDa Dos D DD ra 

* Imprime comandos * 
anDrvsnasassna sas ss 

KEY (1) OFF:KEY (2) OFF 

KEY €3) OFFIKEY (4) OFF 

BEEP 

CLS 

LOCATE 12. 117PRINT "Imprime coman 





IF PM=1 THEN LOCATE 12. 132:FRINT O! 
comandos! ":FOR T=1 TO FOO0:NEXT:G 


OTO 160 


LERINT CHR$ (27) 4 "AME CHR$CO) 
FOR C=1 TO 3 
LERINT CHR$(14)5 TARCIO)S" Imprime 


comandos " 


NEXT E 

LPRINT CHR$ (27) 5 CHR$ (50) 
LERINTILERINT 

FOR C=1 TO PM-1 STEP 3 

LPRINT TARCIO)3C3!> "ECE(C)STABCS 
Cas t= "5C 





MEXT C 


* CTRL-STOP * 
soon apos os pap 

BEER 

RETURN 150 
PppPpRPp 


“ERRO? 
ropsosss 


SOUND 0,54: SOUND 1,10: SOUND 7, 254 


FM=PM-1 
LINE (9,170) (75,185), 10,EF 
PSET (40,175). 10 

PRINT 41.2! 

FSET (41,175),10 

PRINT 1,2! 

FOR T=1 TO 2000:NEXT 

SOUND 8.0 
RESUME 480 
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ILHA HIA 


CURSO DE PASCAL 
3º PARTE 





Nesta parte iremos tratar de um tipo de 
dado e de estrutura de dado só permi- 
tido em linguagens estruturadas. Geral- 
mente causa estranheza a quem nunca 
trabalhou com uma. 

Relembremos o tipo file. Ele define 
uma estrutura com um número inde- 
terminado de elemêntos, porém sem- 
pre arrumados na forma de uma se- 
quência. 

Numa estrutura tipo “vetor” tanto o 
número com a forma de organização 
são fixos. 

Que fazer se tanto o número de ele- 
mentos como a forma de organização 
variarem dinamicamente? 

Para isto temos necessidade de: 

— criar espaço para novas variáveis em 
tempo de execução 

— definir “ligações” entre estas variá- 
veis, de forma dinâmica. 

As variáveis em Pascal podem ser de 
dois tipos: 

— estáticas, definidas no campo var. 
— dinâmicas, não definidas no campo 
var. Não possuem nomes, e por isto as 
referências a elas devem ser feitas atra- 
vés de ponteiros. 

Um ponteiro (ou pointer) é uma va- 
riável cujo conteúdo é um endereço de 
uma posição de memória. 

No caso da Pascal, a variável “P” é 
um ponteiro para um tipo “T” sehou- 
ver a declaração: 
var E) T ou seja: 

P é pointer da variável dinâmica T. 

Existe em pascal uma constante 
pré-definida chamada nil que não 
aponta para nada. 

P: = nil 


Obs: A caixinha representa a variável di- 
nâmica, e a seta, O pointer. 
Necessitamos porém de um proce- 
dimento para criar a variável dinâmica 
do tipo T cujo pointer é P. 
Podemos indicar a geração de uma va- 
riável dinâmica da seguinte forma: 
new (P) 


pt 


variável tipo T, apontada por P. 


— Estruturas de dados com ponteiros. 


Listas 

A estrutura de dados mais simples que 
existe é a lista, 

Uma lista é uma sequência de elemen- 
tos encadeados por ponteiros. 
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Prim 

O apontador para o início da lista é a va- 
riável “Prim” cujo conteúdo é o ende- 
reço do primeiro elemento (9). 

A sequência tem 3 elementos: (9, 6, 
120) 

— Cada elemento da lista tem dois cam- 
pos: 

— o primeiro é um número inteiro (9, 
6ou 120) 

— o segundo é um ponteiro para o cle- 
mento seguinte da lista. 

— o último elemento da lista não apon- 
ta para nenhum elemento (seu valor é 
nil). 


A rotina para a lista acima em Pascal se- 
ria: 


type 
Informação = integer; 
Ponteiro =fElemento; 





Elemento = record 
Chave: Informação; 


Prox : Ponteiro 
end; 

var 

P, Prim : Ponteiro; 


Vejamos uma outra rotina útil, a de bus- 
ca de um elemento numa lista: 

P; = Prim; 

Nãoachou ; = true 

While (P < > nil)and NãoAchou do be- 





if Ph. Chave = Dado 
then NãoAchou 

else P: PÁ . Prox 
end; 


Se NãoAchou = false então “P” apon- 
ta para o elemento cuja chave = Dado 


Inserção de um elemento na lista 

a) inserção após o elemento apontado 
por “P” 

b) inserção antes do elemento aponta- 
do por “P” 


CASO A 















pras 
Es 
LA 


Isto é feito através dos seguintes co- 
mandos: 
Aux. Prox: = P Prox; 
P Prox: = Aux; 
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Aux. Prox: = P. Prox; 
AUX; 

P Chave; 
P. Chave: = Dados; 





Existem muitos outros algoritimos e 
rotinas, para filas, árvores binárias, etc. 
Aconselhamos a quem queira se apro- 
fundar no assunto, a seguinte bibliogra- 
fia: 

— Algoritimos de programa e ordena- 
ção. Knuth, “The art of computer pro- 
gramning”, vol 3, Addison — Wesley, 





1973 
— Algoritimos e estruturas de dados — 
Wirth, Prentice Hall 1976 [nx | 
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Luls Peres Azevedo 








Vamos abordar 
agora o poderoso 
gerador de 
relatórios do dBase 
11, e como construir 
um arquivo formato 
de relatório, 


Suponhamos que você deseje extrair 
um relatório a partir dos dados por vo- 
cê criados e ainda, que já tenha em 
mente o formato de relatório desejado. 
Tendo visualizado o cabeçalho princi- 
pal do relatório, você já sabe quais os 
títulos das colunas necessárias e sabe 
quais os campos que deverão ser tota- 
lizados. Agora você deverá informar ao 
gerador de relatórios exatamente o que 
deseja. 

O arquivo de relatórios é um arqui- 
vo de desinência. FRM. 

A primeira coisa a fazer é abrir O ar- 
quivo de trabalho, no caso, nosso arqui- 
vo FUNC. 

* USE FUNC 
* REPORT FORMAT RPT1 

Com isto você informa ao dBase a 
intenção de criar um arquivo chamado 
RPTI.FRM. 

O dBase fará então uma série de per- 
guntas para saber o formato desejado 
e as respostas serão arquivadas no ar- 
quivo — formato RPTI.FRM. 

As perguntas serão: 

ENTER OPTIONS, M= LEFT MAR- 
GIN, L= LINES/PAGE, N= PAGE 
WIDTH 

Se você teclar ENTER, serão assumi- 

dos os valores default (valores por 
omissão). 
Para LEFT MARGIN, o default é 8, 
Para LINES/PAGE, o default é 57. 
Para PAGE WIDTH, é 80. 

Outras perguntas: 

PAGE HEADING? (Y/N) Y 
ENTER PAGE HEADING: REPORT 1 

Agora você terá que fornecer um ca- 
beçalho: 

DOUBLE SPACE REPORT? (Y/N) N 
ARE TOTALS REQUIRED? (Y/N) N 

Isto feito, deverá informar as colunas 

que quer no relatório. 
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É necessário especificar para cada 
coluna, a largura e o conteúdo de infor- 
mação desta coluna. 


COL WIDTH CONTENTS 
001 10, EMP NUM 
ENTER HEADING;: EMP. NUM 

002 20, EMP NOME 
ENTER HEA DING. EMP NOME 
003 15, CIDADE 


ENTER HEADING: CIDADE 

004 <CR> ou <ENTER> 

TECLE <CR> OU Enter para finalizar, 
e será HeáSão o relatório abaixo: 


PAGE NO. 0001 
0701/87 

REPORT 1 
EMP NUM EMP NOME CIDADE 
0705 LUIS CLAUDIO RIO 
0789 VALERIA RECIFE 





A partir daí, para enviar dados à im- 
pressora, bastará digitar: 
REPORT FORM RPTI TO PRINT 

O relatório será mostrado no vídeo 
e na impressora. 

Quando você utiliza a opção TO 
PRINT, o dBase presume que a impres- 
sora não está posicionada 
te em uma nova página, e avança para 
posicioná-la. Para desativar este primei- 
ro avanço é necessário usar; 








* SET EJECT OFF 

* AEPORT FORM APTI TO PRINT 
— Pode-se fazer um relatório seletivo, 
onde apenas os registros que obede- 
çam a determinada condição apare- 
çam: 

* REPORT FORM RPTI TO PRINT 
FOR 

— Se você quiser que apareça um ca- 
beçalho antes do início do relatório use 





o comando SET HEADING TO. 
* SET HEADING TO REPORT AS JU- 
NHO/87 
* REPORT FORM RPTI TO PRINT 
FOR 
«<condição > 
Surgirá então; 

REPORT AS JUNHO/87 
PAGE NO, 0001 
07/01/87 

REPORT 


Como obter totais 
Geralmente em relatórios que envol- 
vam números você pode desejar totais 
em cada coluna, 

Para isto, basta ao abrir o REPORT. 
FORM, informar Y ao dBase, quando 
ele perguntar: 

* ARE TOTALS REQUERED? (Y/N) 

Ele só lhe perguntará isto em um 
campo numérico, 

Relatórios com Sub-totais 

O sub-total ou “quebra” é muito co- 
mum em processamento de dados. A 
rigor, antes de se pedir um sub-total, O 
arquivo deverá entrar ordenado com 
SORT ou INDEX, Vamos ordenar um 
arquivo-exemplo pelo campo CIDADE, 
e pedir sub-totais por cidade: 

* INDEX ON TOWN TO TINDX 

* REPORT FORM RPTI8 FOR CIDADE 
= “RIO” 

OR. CIDADE = “BH” 

ENTER OPTIONS, M = LEFT MAR- 
GIN, L = LINES/PAGE, 

W= PAGE WIDTH 

PAGE HEADING? (Y/N)Y 

ENTER PAGE HEADING: REPORT 18, 
SUBTOT 

DOUBLE SPACE REPORT? (Y/N)N 
ARE TOTALS REQUIRED? (Y/N)Y 
SUBTOTALS IN REPORT? (Y/N)Y 
ENTER SUBTOTALS FIELD: CIDADE 
SUMMARY REPORT ONLY? (Y/NJN 
EJECT PAGE AFTER SUBTOTALS? 
(VININ 





ENTER SUBTOTAL HEADING: SUB- 


TOT CIDADE 

COL WIDTH, CONTENTS 
001 12, CIDADE 
ENTER HEADING; < CIDADE;... 
002 10, EMPNUM 
ENTER HEADING < NUM: EMP 
003 15, EMP NOME 
ENTER HEADING < NOME; EMP 
004 8,SALARIO 


ENTER HEADING: > SALARIO;... 
ARE TOTALS REQUIRED? (Y/N)Y 


005 < ENTER > 
O relatório obtido será: 
PAGE NO. 0001 
0701/87 
REPORT 18 
SUBTOT 


CIDADE NUM NOME SALÁRIO 
EMP 


EMP 





*SUB-TOTAL CIDADE RIO 

RIO 375 

RIO m 

RIO 181 RICARDO 
*SUB-TOTAL* 

* SUB-TOTAL CIDADE BH 

BH Br MARIA 

BH 811 EDUARDO 


*SUBTOTAL! 
* TOTAL 
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5000.00 
15000,00 
25000.00 


45000,00 


5000.00 


15000,00 


20000.00 
65000.00 





[=] 





Observações importantes: 

O; (ponto e vírgula) serve para escrever uma se- 
gunda linha, 

« a linha à esquerda o título 

> a linha à direita 0 título 


Montagem de Sistemas em dBase Il 

O primeiro passo para você começar a 
escrever seu sistema é definir suas ne- 
« ades. Por exemplo se você vai 
construir um controle de estoque, que 
dados lhe interessam? 





- Nº do item 

— Preço unitário 

- Descrição 
— Data de aqui 
— ete 












Ao definir estas necessidades básicas 
você poderá criar um arquivo, com o 
comando CREATE. 

Você logo verificará que não é inte- 
ressante, se seus pedidos de informação 
ao arquivo são sempre os mesmos, di- 
gitar os comandos até agora aprendi- 
dos, como 
LIST FOR, 

EDIT, etc... 

Além do mais, pessoas que não co- 
nhecem estes comandos, não saberão 
operar o seu controle de estoque. Que 
tal montar um sistema guiado por me- 
nus? Para isto o comando MODI 
MM. Ele pedirá o nome do arquivo. 
Será aberto então um texto onde você 
irá gravar os comandos que usa de for- 
ma repetitiva, de modo que ao preci- 





















sar executa-los outra vez bastará digitar: 


DO PROG 

Onde PROG é o arquivo de coman- 
dos que você gravou anteriormente. 

Lembre-se que CTRLW efetua grava- 
ção em disco. 

No próximo número listaremos um 
sistema guiado por menus, comentado 


a cada passo. 
Até lá, = 








E 





MSX DATABASE: 

O melhor, mais simples e mais rápido banco de dados “Full 
Soreen” do momento. Possui Manual Completo. Em fita ou dis- 
co lincluídos): 400,00. Em Cartucho: 800,00. 


MSX WRITE; 

O mais versátil e poderoso Processador de Textos. Acentua cor- 
retamente nas impressoras nacionais. Completo com múltiplas 
funções e Manual Detalhado. Em fita ou disco lincluídos); 
400,00. Em Cartucho: 800,00. 


MSX SPREADSHEET: 

Uma Planilha de Cálculos tápida e eficiente, muito superior às 
existentes no mercado, pois é totalmente em Linguagem de 
Máquina. 

Fácil de usar com nosso Manual Exclusivo. Em fita: 500,00. Em 
Cartucho: 800,00. 








MSXGEOS: 
Umnovo conceito em programação: Jane- 
las, “Labels” e Icones. 
Parece um Macintosh mas é um MSX! 64 
Colunas, Calculadora, Dump Debug e Lei- 
tor de Header em "ROM". Uma maneira 
mais Fácil de se usar o Disk-Drive. Disco e 
manual incluídos: 1700,00. 


MSX INTERFACE | 
Uma "ROM Envenenada” para seu MSX: 
Mutti-Copiador embutido, novas funções, 
Cor de fundo preta e auto-keyoff, etc. Em 
cartucho: apenas 100,00. 








INFORMÁTI 


GSUDCRCODPY 7.1 
GRAVA SCH TRAVA 


CRB MASTER ASX | 
NEMESIS al 





SUPERCOPY 7.1: 

Super-Copiador de Programas em Assemble travados ou não. 
Possui árias velocidades de gravação, Monitoração Visual e 
múltiplos recursos. Acompanha Manual Completo. Em fita ou 
disco (incluídos): 500,00. Em Cartucho: 900,00. 





MUVDOS H: 

Um novo Sistema Operacional Transtere programas de Fita pa- 
ra Disco e vice-e-versa. Expande a memória e as funções do 
Disc-Basic. Apenas em Disco: 500,00. (Disco e Manualinciui 

dos) 


GRAF-MASTER: 

Utilitário Gráfico Profissional, Com poderosos recursos e diver- 
sas ferramentas opcionais. Muito superior aos já existentes. 
Com ele tudo é possível. Em fita e disco lincluídos): 400,00. 


RECORDE NACIONAL DE 62.000 PROGRAMAS VENDIDOS EM 5 MESES! 


Novos Lançamentos (9/87) — 10 jogos por 600, 


00 (Disco ou fita incluídos): 





Scope On, Starquacke, Saboteur Mission, Illusions, Actman Quest, Super Cross Force, Pippols, Sea Hunter, Penguin Adventure, 2002 M.A. Cross, Eggeriand, Arkanoid, 
Army Moves, Auf Monty, Erotic Movie Show, Volguard, Formation Z, B.C. Quest, Konami's Golf, Boogie Woogie Jungle, Juno's First, Bee & Flowers, Candy Fairy, Bat- 
tleship Clapton Il, Lonesome tanks, Halloween, Turmoil, Thexder, Ski Command, Zanac, Profanation, Star Force, Colt 36, Candoo Ninja IV, Space Tunnel, Space Egay, 
Future Kung-Fu, Red Zone, Scramble Eggs, Death Circus, etc. 


Solicite gratuitamente nosso CATÁLOGO ILUSTRADO, com a lista atualizada — Jogos à partir de Cz8 30,00! 


Envie vale postal ou cheque nominal visado à NEMESIS INFORMÁTICA LTDA. Caixa postal 4583 cep. 20.001 — Rio de Janeiro — RJ. 
Ou venha pessoalmente ao nosso SHOW-ROOM NEMESIS — Rua Sete de Setembro, 92 sala 1910 — Centro — Rio de Janeiro — RJ. 
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SOFTWARE 


PLANILHAS ELETRÔNICAS 


Supermercado Cavalo Branco 














As duas maneiras mais frequentes de ar- pe ias 
mazenar dados são: Açúcar Refinado 1Kg 3,87 
— sob a forma de um fichário cle- Biscoito Água e Sal 200 g 3,85 
trônico ou banco de dados. Café 99:90 
— Sob a forma de uma “planilha ele: as 1Hg 9X 
trônica”. Feijão Roxinho 1Kg 13,00 
O que há de diferente entre os dois? Sal Refinado 1Kg 1,60 
Num banco de dados, existem geral- i A 
mente vários campos, com a ne ló da Es a ao 
gica, Por exemplo: cada ficha pode ser Linguiça Calabresa 1 Kg 46,85 
a ficha funcional de um empregado da Queijo Mussarela 1kKg 33,50 
empresa, com campos como Óleo de Soja 900 ml 7177 
= Endereçã Refrigerante 300 ml 
— telefone 











lista de campos pode se tornar 
nte extensa, nos bancos de dados 
mais complexos, 

Numa planilha eletrônica, em c: 
linha temos um item, com dados nas 
colunas referentes a este item. Geral- 
mente as planilh a cálcu- 
los e demc ) ros porque 
ndo as linhas 
e também as colunas como totais e 
sub-totais 

























jade o que muda de uma 
forma para outra, é o modo de apresen- 
tar os dados. Nada impede que usemos 
um banco de dados para representar os 
dados que estão sob a forma de plani- 
lha 

Vejamos um exemplo de planilha: 






lo | kz Software 


pronto 





Augusta, 2590-20-C)/325-Cep. 01414 
34041) 0952.2958 - Sao Paulo-SP 





Planilhas e o Microcomputad 
As características das planilhas 
crocomputadores podem ser b; 






s para mi 
nte 





interessantes para você: 

— As fórmulas, os sub-totais, totais 
parciais e o total geral são calculados au- 
tomaticamente. 





istentes podem ser 


— Os novos itens podem ser adicio- 
nados a qualquer instante. 

— Podem ser obtidas quantas cópias 
forem necessárias, a qualquer momen- 
to. 





Programas para E; 


ro-Computador 








ATENDIMENTO PARA TODO BRASIL 
852.2958 


FEL: 
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UMA SOLUCAO LOGICA E PRONTA 
FARA PRONTA ENTREGA: Contabilidade Geral automatica, Folha de Pagamento, 
Conta Corrente, Conta Corrente, Sistema de Controle Bancario, 
de Contas a Pagar e Receber, Sistema de Controle de Estoque, Sistema de 
Mala Direta, Sistema de Fluxo de Caixa, Editor e Processador de Textos, 


enharia. Programas Específicos em Geral para todos 08 


«011% 


— Os arquivos de dados podem ser 
gravados em fita-cassete ou disco, para 
utilização posteric 
, O que é uma planilha ele: 





Para esclarecer e exemplificar melhor, 
vamos nos bascar na Hot Plan da Sharp: 
O Hot Plan requer a seguinte confi 
guração mínima: 
— Microcomputador 
— Monitor de vídeo 
— Gravador 
Opciona 
— Impressora 
Unidade de Disco 
— Disquetes para arquivo 
O Hot Plan é fornecido em cartu- 
















Controle 
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cho. Ao instalá-lo, surge na tela uma ma- 



















Na verdade a matriz é bem maior do 
que aparece na tela (63 x 99). A matriz 
representa as linhas e colunas a preen- 
cher. 

Podemos deslocar a janela na qual 

— visualizamos a planilha usando as setas 
do teclado. 

Existe um cursor com 9 posições, 
que se desloca sobre a matriz, e permite 
entrar com: 

— números 

— textos 

— fórmulas 

A digitação de fórmulas é uma carac- 
bastante interessante, pois per- 
automatizar operações entre as co- 
Por exemplo: 

MIN (R9C3:R58C3) 

Nesta fórmula calcularíamos o mí 
nimo na coluna 3 entre as linhas 9 e 58. 
ia a uma célula qualquer é fei- 
ta por Rm Cn, onde m é o nº da linha 
(Row) e n é o número da coluna. 
Após o usuário ter definido: 

— Cabeçalho 

— Valores numéricos 

— Rodapé 

Devem ser definidas as fórmulas, e 
após a digitação dos valores numéricos, 
o computador automaticamente calcu- 
lará os outros valores, que dependam 
destes, 














Parâmetros da Planilha 
Alguns parâmetros do Hot Plan, como 
a largura da coluna, o alinhamento das 
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informações e o número de casas de- 
cimais, embora prefixados, podem ser 
alterados a gosto do usuário. 

Com efeito, pressionando-se Fá no 
Hot Plan, temos as opções: 

F2 — estetética da célula, onde a cé- 
lula pode ser colocada à esquerda, no 
centro, Ou à direita, Normalmente as in- 
formações que colocamos na célula são 
alinhadas pela direita. 

F7 — Formato Monetário 

E8 — Formato fixo, onde se permi- 
te fixar o número de casas decimais. 

E9 — Formato Geral 


Comandos Para Transferência 

F8 — Transfere para impressora uma 
cópia da planilha 
pc 








3 cificar qual trecho 
deve ser impresso, compatível com a 
largura da impressora. 

Através da outra tecla de função (F9) 
transfere-se para a fita ou disco o arqui- 
vo da planilha. 








Como vimos, a planilha é um software 
fácil de operar. O que dá a ela extrema 
versatilidade e define seu potencial de 
uso, no entanto, são as funções mate- 
máticas, estatísticas, etc... que ela pos- 
sua. 
Vejamos um resumo das funções do 
Hot Plan: 

ABS (X) — valor absoluto do argu- 
mento. 

AND — função lógica 

ATAN — arco tangente do argumen- 
to 





AVERAGE — calcula a média aritmé- 
tica 

COS (argumento) — cosseno de um 
argumento 


COUNT (argumento) — conta o nú- 
mero de elementos da lista 

EXP (argumento) — função expo- 
nencial 

IF — teste ou desvio condicional 


INS — insere linhas e colunas no 
meio da planilha 

INT (argumento) — retorna a parte 
inteira do número 

LN (argumento) — retorna a parte in- 
teira do número 

LN (argumento) — logaritimo nepe- 
riano 

LOG 10 (argumento) — logaritimo 
decimal 

MAX (lista) — retorna o maior valor 
da lista 

MIN (lista) — retorna o menor valor 
da lista 

MOD (dividendo, divisor) — retor- 
nao resto da divisão do dividendo pe- 
lo divisor, 


NPV (taxa, lista) — calcula o valor 
presente de um fluxo de caixa repre- 
sentado pela lista, na taxa dada 

PI( | ) — valor do número PI 

ROUND (argumento, n) — arredon- 
da o argumento, na enésima (n) casa de- 
cimal 

SIGN (argumento) retoma — 1,0, ou 
1 em função do sinal do argumento 

SIN (argumento) — raiz quadrada do 
argumento 

SQRT (argumento) — raiz quadrada 
do argumento 

STDEV (lista) — calcula o desvio pa- 
drão da lista 

SUM (lista) — calcula a soma dos ele- 
mentos da lista 





TAN (argumento) — calcula a tan- 
gente do argumento 
Pelo que vimos acima, o elenco de fun- 
ções existentes numa planilha deve 
incluir as mais variadas. 

— financeiras 

— estatísticas 

— gerais 

A HOT PLAN, uma das várias plani- 
lhas existentes no mercado para o MSX, 
consegue reunir extrema facilidade de 
operação com ampla gama de funções. 








Sua document à é excelente, e bas- 
tante didática 
iuis Peres Azevedo = 
Logo 
Sy 
na, 
a, 
q 
” 
Qu 


GRAFIX 
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DICAS 





BATENDO EM OUTRAS 
TECLAS 


Cansado do click-click das 

teclas do MSX? Então ponha 

um beep de verdade no seu 
comandar: 

o, entre com estes 


ouça difere 
Para voltar ao normal, é só 


riano Rondelli 
Gonçalves — SP 


POr E &HFDO 


E&HEDC4. O: PO 


produz beep 
produz 


click + beep 





IMPRESSÕES LOCALIZADAS 


U tilizar a instalação LOCATE 
s para posicio- 
> no vídeo 
pode, em alguns cas: 
na-se um pouco lento, Uma 
alternativa para contornar es- 
te problema é dar POKE nas 
variáveis do sistema que 
apontam a posi 
pressão, O endereço F3DCH 


contém a coordenada verti- 
cal (1-24) e o endereço 
F3DDH, a coordenada hori- 
zontal (1-40) para a instrução 
PRINT, Assim da próxima 
vez, ao invés de LOCATE 


15,0: PRINT “TEXTO”, use: D> 


Armando José Gomes — 
SP 


P 
P 








RELEVO “HI-TECH” 


Se você integra a legião dos 
que acabaram de adquirir 
uma impressora gráfica, este 
pequeno programa é uma 
boa pedida para estrear seus 
dumps de alta resolução. 
Mas se você ainda não tem 
impressora, não tem proble- 
ma: relaxe e aprecie a tela en- 
quanto seu MSX vai comple- 
tando o desenho. 

João Sampaio Dória — 


Rj 





D 19 car gRiS. 4 








LOAGÕS 3 






G+A BEI OA 
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SERES ALIENÍGENAS 


Um Kiwi e um E 





ok você já 





deve saber como são. Mas o 
que vem a ser um Kiwok? 
Rode o programa e 
descubra, 


Francisco Roberto de 
Oliveira — DF 








Softnew Informática 
TUDO PARA O COLOR E MSX!!! 


Tradicional em softwares para o CP-400 e MSX. 
Imensa variedade de softwares, 5000 programas para o CP-400 
e 500 programas para o MSX. 


CP-400 MSX 


Jogos — Cz% 15,00 Jogos — Cz$ 29,00 
Aplicativos e Utilitários Cz% 250,00 * Aplicativos e Utilitários Cz$ 300,00 
* cocomaxle Il Czê 600,00 * minimax  Cz$ 400,00 * Copiadores Cz$ 400,00 
e vip-library Cz$ 2.100,00 * deskmate Cz$ 800,00 * Controle de estoque 
e vizidraw Cz$ 1.200,00 * pen-pal Cz$ 800,00 (disco) Cz$ 400,00 
* OS9-sist. * Master voice 

operacional Cz$ 3.000,00 * copiadores Cz$ 600,00 (sintetizador de voz) Cz$ 350,00 
* livro 500 peeks e 


k or - 
fraduzido (2925000 «Joysticks C2$ 450,00 ditou to Tor To] do) 


* adventures em 


português TEMPO LIMITADO! 


Nosso sistema de trabalho: 


Cobramos uma taxa de Cz$ 70,00 correspondente a fita cassete, sendo que nessa fita podem ser 
colocados 30 programas para CP-400 e 20 programas para MSX. Caso deseje que sejam divididos 


os programas em várias fitas, nos informe o número de fitas. -—- 
— 
OBS.: — Encomenda mínima Cz$ 290,00 — Taxa de correio Cz$ 60,00. — 
= 
À 





Despachamos para qualquer lugar do Brasil. A fita e/ ou disco será entregue em sua residência. 
Caso você, deseje que seus programas sejam colocados em disketes, o valor do mesmo é de 
Cz$ 150,00. 


SOFTNEW 


Rua Miguel Maldonado, 173 — Bairro 
Solicite nosso catálogo hoje mesmo, e quando recebê-lo envie seu pedido e a quantia atra Jardim São Bento — São Paulo — SP 


s sábados das 9 às 13 hs 


vés de cheque; dinheiro ou Vale Postal para a agência Casa Verde. no valor correspondente Tel.: (011) 266-2902 
ao seu pedido. CEP 02524 





MSXMicro 45 





Vo ss 
GAM 


ES 





AV. PAULISTA 
nn 


Este jogo do tipo “adventu- 
re”, inteiramente desenvolvi- 
do no Brasil, conduz o par- 
ticipante através da cidade de 
São Paulo e oferece uma va: 
riedade de situações que faz 
com que cada partida seja 
uma nova aventura. Como O 
nome sugere, as aventuras se 
desenvolvem em uma das 
regiões mais sofisticadas e 
conhecidas de São Paulo: a 
Av. Paulista, Em perigo, en 
contra-se uma importante 
personalidade da cidade: o 
diretor do MASP Museu 
de Arte de São Paulo, cujo 
cérebro foi confiscado pelos 
adoradores da AKERNAAK, 
“O mal maior”, Somos então 
desafiados a resgatar esta au 
idade e impedir assim, e: 
te terrível desfalque no acer- 
vo intelectual brasileiro, 
Não é fácil. Movendo-se 
livremente pela cidade, você 
precisa encontrar as armas e 
os caminhos adequados pa: 
ra atingir a laje de cobertura 


























do Museu onde está preso o 
diretor. Porém, se você con: 
seguir chegar até lá, mas es 
tiver despreparado para en- 
frentar seus guardiães, será 
por eles impiedosamente 
destruído, 

Como todo simples mor- 
tal, você tem certos limites da 
capacidade e resistência. Ao 
longo da jornada você vai 
encontrando amigos e inimi- 
gos, armas e outros objetos 
de que necessitará para en: 
frentar perigos e superar 
obstáculos. 

Como encontrar o livro 
que tem a palavra. mágica? 
Como desarmar a bomba 
que o louco bombardeador 
colocou no Center 3? Como 
forçar O feiticeiro da noite a 
sair do túnel da Nove de Ju 
lho para você poder pegar o 
estojo de primeiros socorros 
que ali está? 

Só há uma maneira de 
obter essas respostas: jogan 
do o AV. PAULISTA ce evitan- 
do que o cérebro do MASP 
se transforme num... bode 
dourado! 











POKERREAL 
nn 


Você vai experimentar todas 
as emoções que um dos 
mais conhecidos jogos de 
cartas de todos os tempos 
pode lhe proporcionar. Aqui 
você vai jogar pôquer de 
verdade, só que contra o 
computador, um adversário 
que age sempre de forma ab- 
solutamente honesta. Ape: 
nas um detalhe: tal como vo: 
é, ele também pode blefar 
algumas vezes, aleatoriamen 
te. Assim, você vai precisar 
de toda a sua sorte — e tam: 
bém de muito discernimen- 
to. 

No início cada um recebe 
um cacife de Cz$ 1.000,00 e 
pode apostar, pedir cartas, 
repicar, abandonar o jogo 
tudo exatamente como no 
jogo convencional com car 
tas. Vale lembrar que o com. 
toda a adminis 
ão do jogo com a mais 




















absolutá isenção, não se va- 
lendo em nenhuma hipóte- 
se do fato de ter as cartas do 
oponente resgistradas na 
memória. Utilizando um ba: 
ralho de quatro naipes, do 
sete ao ás, o micro embara- 
lha as cartas e distribui cinco 
para ele e cinco para o adver: 
sário (você). Em seguida, o 
computador verifica o valor 
das jogadas — todas são 
consideradas desde o mini 
mo (chamado FUTEBOL) 
até a sequência máxima 

aposta, repica e, após cada 
rodada, verifica a hierarquia 
das jogadas, Por fim, aponta 
e credita ao vencedor o va: 
lor da mesa, isto é, o total de 
apostas daquela rodada. 

Se você gosta de um jogo 
de cartas dinâmico, ou quer 
aprender a jogar pôquer, es 
ta é a sua chance. 
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Acabou o problema da 
casa própria para os MSX. 


Não amigos, este não é mais um comunicado do BNH. E a notícia 
mais esperada pelos usuários de micros MSX. Foi aberta a Casa do MSX, 
a primeira e única loja totalmente especializada na linha MSX. 

Lá tem tudo para o seu Expert* ou Hot Bit** ficarem ainda melhores: 
impressoras de última geração, disk-drives para aumentar o seu potencial, 
os mais famosos softwares, literatura básica e avançada, além de muitas 
dicas para você dominar e abusar do seu MSX 

E como nós somos os especialistas, o nosso preço também é especial 

Venha nos fazer uma visita. A Casa 
é sua, e dos MSX 


Em 2X 
PU EXP eme suite 
onitr Gradien OSSOS preços 
Drive Last CASA DO MSX 
| coroa 


Rua Afonso Brás, 155 - SP. 
Tels.: (011) 240-1994 e 533-2351 











SÉRIE EDUCACIONAL PARA O SEU MSX OSOENAREÉ NOSSO! Sá 


CURSO DE BASIC para todos os computadores, auto-explicativo, passo a passo, para todas as idades, em fita ou disco. 


LINHA EDUCACIONAL (em fita) 4 
n =Conjuntos - Operações Básicas - Grandezas Proporcionais - Equações - Sistemas de 
Equação - Geometria Geral- Triângulos - Area de Poligonos o 
- FUNÇÕES - Trigonometria - Progressões Aritméticas - Progressões Geométricas 


Geometria Espacial - Limites e Derivadas - Geometria Analítica e Números Complexos Ba 

- Mov Retilíneo Uniforme - Mov. Retilíneo Uniformemente Variado - Mov. Circular Uniforme - Mov. ll ll qm 
Harmóônico Simples - Choques Mecânicos e Qtdes. de Movimento - Lançamento Obliquo - Energia Mecânica 
Ótica - Eletrostática - Circuitos Elétricos |- Circuitos Elétricos il 


« Leis dos Gases - Níveis de Energia - Tabela Periódica - 
Compostos lônicos - Funções Orgânicas - Teoria Cinética dos Gases 


APLICATIVOS 
sc rain. O cotrle deste ZE ENGESOT TECNOLOGIA A INFORMÁTICA LTDA. 
Mala Direta - Contas a Pagar/Receber - Orçamento de Obras Caixa Postal 42055 - SãO Paulo - SP É 


Leor 


5) 


